Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дано все 3-х значные числа Найти сумму и колличество чисел, кратных 9.

Ответ оставил Гость

Var
i, s, k: integer;
begin
s := 0;
k := 0;
//проверяем все 3-значные числа на кратность
for i:=100 to 999 do
  if i mod 9 = 0 then
  begin
    inc(s, i);
    inc(k);
  end;
writeln(Сумма: , s);
writeln(Количество: , k);
end.