Знайти добуток чисел кратних 5 в діапазоні от 1 до 100
програмный код!
Program Count;
Uses Crt;
var i,n:byte;
begin
n:=0;
for i:=1 to 100 do
if (i mod 5)=0 then n:=n+1;
writeln(Количество чисел кратных 5: ,n);
readkey;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
