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

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

Задать свой вопрос
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.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт