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

Question

Информатика

Маргаритка

20 октября, 10:39

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

+3

Ответы (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.