Количество чисел на интервале -11;100 кратным 4 Turbo

Количество чисел на интервале -11;100 кратным 4 Turbo

Задать свой вопрос
1 ответ

var n,i:integer;

begin

n:=0;

for i:=-11 to 100 do

  if i mod 4=0 then n:=n+1;

writeln(n);

end.

Тестовое решение:

28


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


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

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

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

Войти на сайт