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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted 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.