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

Question

Информатика

Дормедонт

2 декабря, 05:27

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

+5

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