Question

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

Answer 1

var
    i, count, number: integer;

begin
    count := 0;
    i := 0;
    writeln('Введите последовательность чисел');
    repeat
        readln(number);
        if (number >= 100) and (number <= 999) and (number mod 4 = 0) then
            count := count + 1;
        i := i + 1
    until (number = 0) or (i >= 1000);
    
    writeln('Кол-во 3значных чисел кратных 4 =', count);
end.

Answer 2

Программа на языке Pascal для подсчета количества трехзначных чисел, кратных 4

program CountMultiplesOfFour;

var
  number, count: integer;

begin
  count := 0;
  
  repeat
    readln(number);
    
    if (number >= 100) and (number <= 999) and (number mod 4 = 0) then
      count := count + 1;
  until number = 0;
  
  writeln('Количество трехзначных чисел, кратных 4: ', count);
end.

Объяснение программы: - Программа начинается с объявления переменных `number` и `count`. Переменная `number` будет использоваться для хранения введенных чисел, а переменная `count` будет использоваться для подсчета количества трехзначных чисел, кратных 4. - Затем устанавливаем начальное значение `count` равным 0. - Далее используем цикл `repeat...until`, чтобы считывать числа с клавиатуры до тех пор, пока не будет введено число 0. - Внутри цикла проверяем, является ли введенное число трехзначным и кратным 4. Если это так, увеличиваем значение `count` на 1. - По завершении цикла выводим количество трехзначных чисел, кратных 4, на экран.

Пример работы программы: ``` Входные данные: 456 123 789 240 0

Выходные данные: Количество трехзначных чисел, кратных 4: 1 ```

Примечание: - Программа проверяет каждое введенное число на соответствие условиям трехзначности и кратности 4. Если число не удовлетворяет этим условиям, о