Найти все целые трёхзначные числа сумма цифр которых равна 6.Pascal ABC.Срочно
Answers & Comments
elenaklon
Var a,b,c,i:integer; begin for i:=100 to 999 do begin a:= i div 100; b:= i mod 100 div 10; c:= i mod 10; if a+b+c = 6 then writeln(i) end; readln end.
Answers & Comments
begin
for i:=100 to 999 do
begin
a:= i div 100;
b:= i mod 100 div 10;
c:= i mod 10;
if a+b+c = 6 then writeln(i)
end;
readln
end.