Напишите программку, которая в последовательности естественных чисел определяет количество

Напишите программу, которая в последовательности естественных чисел определяет количество трёхзначных чисел, кратных 4. Программка получает на вход естественные числа, количество введённых чисел неведомо, последовательность чисел кончается числом 0 (0 признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 1000. Введённые числа не превосходят 30 000. Программка должна вывести одно число: количество трёхзначных чисел, кратных 4.

Задать свой вопрос
1 ответ
Var
  x, count:integer;

begin
  repeat
    readln(x);
    if (x gt;= 100) AND (x lt;= 999) AND (x mod 4 = 0) then
      count := count + 1;
  until x = 0;
  writeln(count);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт