Надо решить задачу используя алгоритмическую структуру "цикл" : Найти все трехзначные числа сумма цифр которых равна 8.

Question

Информатика

Дареха

18 августа, 16:06

Надо решить задачу используя алгоритмическую структуру "цикл" : Найти все трехзначные числа сумма цифр которых равна 8.

+5

Ответы (1)

Знаете ответ на вопрос?

Герма · Answer 1

Var i, t, s:integer;

Begin

For i:=100 to 999 do

Begin

t:=i; s:=0;

While t>0 do

Begin

s:=s+t mod 10;

t:=t div 10;

End;

if s=8 then write (i,' ') ;

End;

readln;

end.