Дано все двузначные числа. Найти количество и сумму кратных 5 (Язык Паскаль)
Дано все двузначные числа. Найти количество и сумму кратных 5 (Язык Паскаль)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы