Сотавьте программу которая вычесляет количество кратная - вопрос №43004009421765 от poma070205 23.02.2021 05:49

Question

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

poma070205 · 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....