Question

Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 5. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чётных чисел, кратных 5. Для записи программы используйте приведенные переменные: var a, n: integer begin n:= 0 readln(a) … writeln(n) end

Answer 1

Ответ:

###################

# PascalABC.NET 3.7      #

# .NET Framework 4.8    #

###################

begin

 ReadSeqIntegerWhile(x -> x > 0).Count(x -> x mod 5 = 0).Println();

end.

Answer 2

Вот программа на языке Pascal, которая выполняет указанную задачу:

pascalCopy code
var
  a, n: integer;
  
begin
  n := 0; // Инициализируем счетчик
  
  // Ввод чисел и подсчет четных чисел, кратных 5
  repeat
    readln(a);
    if (a <> 0) and (a mod 2 = 0) and (a mod 5 = 0) then
      n := n + 1;
  until a = 0;
  
  // Вывод результата
  writeln(n);
end.

Эта программа считывает целые числа до тех пор, пока не встретит 0 (признак окончания ввода). Для каждого введенного числа программа проверяет, является ли оно четным и кратным 5, и, если это так, увеличивает счетчик n. По завершении ввода она выводит количество найденных четных чисел, кратных 5.