Дано все двузначные числа. Найти количество и сумму кратных 5 (Язык Паскаль)

Question

Информатика

Эрнестина

6 декабря, 14:53

Дано все двузначные числа. Найти количество и сумму кратных 5 (Язык Паскаль)

+3

Ответы (1)

Знаете ответ на вопрос?

Ефросим · Answer 1

Var

i: integer;

k : = 0;

s : = 0;

begin

for i : = 10 to 99 do

if i mod 5 = 0 then begin

s : = s + i;

k : = k + 1;

end;

writeln ('количество = ', k, ' и сумму = ', s) ;

end.