Сотавьте программу которая вычесляет количество кратная 4м в диапозон от 300 до 400.**...

Question

Сотавьте программу которая вычесляет количество кратная 4м в диапозон от 300 до 400.На языке паскаль.

Answer 1

Проверено в PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018

var

 s: integer;

begin

 for var i := 300 to 400 do

   if (i mod 4) = 0 then

     s := s + 1;

 Print(s);

end.

---