Задать вопрос Регистрация
Помочь другим

  • из чисел от 100 до 999 вывести те, сумма цифр которых числу N, введенному с клавиатуры.

Ответы 1

  • Program n1;Uses CRT;Var a,b,c,k,n,i: integer;beginClrScr;writeln('vvedite n');readln(n); For i:=100 to 999 do begina:=i div 100;b:=i mod 100 div 10;c:=i mod 10;If a+b+c=n then begin write(i:4); k:=k+1; end; end;if k=0 then writeln('takih chisel net');readlnend.

    • Автор:

      abbey
    • 5 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years