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

Question

Информатика

Иляха

12 марта, 00:57

Дано все двузначные числа. Найти количество и сумму кратных 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.