Сотавьте программу которая вычесляет количество кратная - вопрос №94224424300 от насвай4 07.02.2022 03:31

Question

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

насвай4 · Answer

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