Определить количество чисел кратных 5 в последовательности от 10 до 50.
Нужно в паскале написать. Хэлпп!
Var
i, k: integer;
begin
for i := 10 to 50 do
if i mod 5 = 0 then
k := k + 1;
writeln(k);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
