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

Question

Информатика

Арсентьич

17 октября, 06:09

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

+1

Ответы (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.