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

111Ботаник111 111Ботаник111    2   30.09.2019 05:00    0

Ответы
Guguguguguguguguy Guguguguguguguguy  10.09.2020 20:57

Проверено в 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.



Сотавьте программу которая вычесляет количество кратная 4м в диапозон от 300 до 400.на языке паскаль
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика