Question

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

Answer 1

// PascalABC.NET 3.2, сборка 1411 от 23.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Write(ReadSeqIntegerWhile(k->k<>0).
      Where(k->(k>99) and (k<1000) and (k mod 4=0)).Count)
end.

Пример
45 244 1043 463 500 241 18 44 0
2

Answer 2

Var A,k:integer;
Begin
k:=0;
Repeat
Read(A);
if (A>99)and(A<1000)and(A mod 4 = 0) then k:=k+1
Until A = 0;
WriteLn(k);
End.

Answer 3

Решение на языке Паскаль:

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(count);
end.

Объяснение решения:

Данная программа на языке Паскаль считывает последовательность натуральных чисел с клавиатуры и определяет количество трехзначных чисел, кратных 4. Программа продолжает считывать числа до тех пор, пока не будет введено число 0, которое служит признаком окончания ввода. Количество чисел не превышает 1000, а введенные числа не превышают 30000.

Алгоритм решения следующий: 1. Инициализируем переменную `count` (счетчик) значением 0. 2. В цикле `repeat` считываем число с помощью `readln(number)`. 3. Проверяем, является ли число трехзначным и кратным 4 с помощью условия `(number >= 100) and (number <= 999) and (number mod 4 = 0)`. 4. Если число удовлетворяет условию, увеличиваем счетчик `count` на 1. 5. Цикл повторяется до тех пор, пока не будет введено число 0. 6. После окончания ввода, выводим значение счетчика `count` с помощью `writeln(count)`.

Таким образом, программа выводит количество трехзначных чисел, кратных 4, в последовательности введенных чисел.

Пример работы программы:

Ввод:
256
123
400
789
0

Вывод:
2

В данном примере в последовательности чисел 256, 123, 400, 789 есть два трехзначных числа, кратных 4 (256 и 400). Поэтому программа выводит число 2.

Примечание: Данное решение представлено на языке Паскаль. Если вам нужно решение на другом языке программирования, пожалуйста, уточните это.