Определить количество трехзначных чисел, кратных 9. Использовать следующий признак: число кратно 9, если сумма всех его цифр делится нацело на 9 — Pascal(Паскаль)

var
i,kol:integer;
begin
kol:=0;
for i:=100 to 999 do
if ((i div 100)+((i div 10) mod 10)+(i mod 10)) mod 9=0 then
begin
inc(kol)
end;
writeln(kol);
end.

Похожие записи/страницы:

Leave a Comment

− 3 = 5