Pascal Составить программу поиска трех значных чисел, сумма цифр которого равна N

Question

Информатика

Ангелиныч

19 марта, 08:11

Pascal Составить программу поиска трех значных чисел, сумма цифр которого равна N

+5

Ответы (1)

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

Борислав · Answer 1

Var

i, n, s, k: integer;

begin

readln (n) ;

for i : = 100 to 999 do

begin

s : = 0; k : = i;

while k > 0 do

begin

s : = s + k mod 10;

k : = k div 10;

end;

if s = n then

writeln (i) ;

end;

end.