Сколько существует трёхзначных чисел сумма цифр которых делится на 5? Вывести их. Программа паскаль
Answers & Comments
PuerDeSatan
Var i, a, k, sum : integer; begin k:=0; for i:=100 to 999 do begin sum:=0; a:=i; while a>0 do begin sum:=sum+(a mod 10); a:=a div 10; end; if sum mod 5 = 0 then begin inc(k); write(i:5); end; end; writeln; writeln('Количество чисел: ', k); end.
Answers & Comments
i, a, k, sum : integer;
begin
k:=0;
for i:=100 to 999 do
begin
sum:=0;
a:=i;
while a>0 do
begin
sum:=sum+(a mod 10);
a:=a div 10;
end;
if sum mod 5 = 0 then
begin
inc(k);
write(i:5);
end;
end;
writeln;
writeln('Количество чисел: ', k);
end.