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

nastyakot2609 nastyakot2609    2   18.05.2019 05:30    0

Ответы
kostija73 kostija73  11.06.2020 11:27

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. 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика