Знайти добуток чисел кратних 5 в діапазоні от 1 до - вопрос №145052151100 от Aleksey8b 11.03.2021 00:14

Question

Информатика: Знайти добуток чисел кратних 5 в діапазоні от 1 до 100 програмный код!

Aleksey8b · Answer

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.