Question

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

Answer 1

program natural;

   uses CRT;

   var n, number, result, i: integer;

begin

   clrscr;

   writeln('Enter n');

   readln(n);

   result := 0;

   for i := 1 to n do

   begin

       readln(number);

       if number mod 4 = 0 then result := result + 1;

   end;

   writeln('Result is ', result);

   readln

end.

Answer 2

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

pascalCopy code
program CountMultiplesOfFour;

var
  N, number, count: integer;

begin
  count := 0;

  // Ввод количества чисел в последовательности
  writeln('Введите количество чисел в последовательности:');
  readln(N);

  // Ввод чисел и подсчет чисел, кратных 4
  writeln('Введите числа:');
  for var i := 1 to N do
  begin
    readln(number);
    if number mod 4 = 0 then
      count := count + 1;
  end;

  // Вывод результата
  writeln('Количество чисел, кратных 4: ', count);
end.

Программа просит пользователя ввести количество чисел в последовательности, а затем последовательно считывает сами числа и подсчитывает количество чисел, кратных 4. Результат выводится на экран.