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

program zz1;

var i, s, k:integer; / / вводим переменные целого типа

begin

for i:=100 to 999 do / / организуем цикл, в котором переберем все трехзначные числа

if i mod 9 = 0 / / проверяем, если трехзначное число кратно девяти, то

then begin s:=s + i; k:=k+1; end; / / вычисляем сумму таких чисел и их количество

/ / выводим ответ

writeln (' сумма трехзначных чисел кратных девяти = ', s);

writeln (' количество трехзначных чисел кратных девяти = ', k);

end.