надо решить задачу используя алгоритмическую структуру "цикл" : Найти все трехзначные числа сумма цифр которых равна 8.
Answers & Comments
RedShukhart
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.
Answers & Comments
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.