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

Question

Информатика

Маруша

9 июля, 10:00

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

+4

Ответы (1)

Знаешь ответ?

Пров · Answer 1

Program n1;

Uses CRT;

Var a, b, c, k, n, i: integer;

begin

ClrScr;

writeln ('vvedite n');

readln (n);

For i:=100 to 999 do

begin

a:=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');

readln

end.