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

Question

Информатика

Володюня

20 июня, 20:07

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

+2

Ответы (1)

Знаете ответ?

Мелания · Answer 1

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.