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

Question

Информатика

Глафира

22 июня, 22:54

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

+2

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