Question

ПАСКАЛЬ. Ввести N чисел. Найти количество четных чисел среди них. Спасибо)

Answer 1

program n_1;

var n, i, m, s: integer;

begin

   s:=0;

   read(n);

   for i:=1 to n do begin

       read(m);

       if m mod 2 = 0 then s:=s+1;

   end;

   writeln(s);

end.

Answer 2

Привет! Я понимаю, что ты хочешь написать программу на языке программирования Паскаль, которая позволит пользователю ввести N чисел и затем посчитать количество четных чисел среди них. Вот пример кода на Паскаль для решения этой задачи:

pascalCopy code
program CountEvenNumbers;

var
  N, num, countEven: Integer;
  
begin
  countEven := 0; // Инициализируем переменную для подсчета четных чисел
  
  Write('Введите количество чисел N: ');
  Readln(N);
  
  for var i := 1 to N do
  begin
    Write('Введите число ', i, ': ');
    Readln(num);
    
    // Проверяем, является ли число четным
    if num mod 2 = 0 then
      countEven := countEven + 1; // Увеличиваем счетчик четных чисел
  end;
  
  WriteLn('Количество четных чисел: ', countEven);
end.

Как только программа будет запущена, она запросит у пользователя ввести значение N (количество чисел), а затем попросит ввести сами числа. После ввода всех чисел программа выведет количество четных чисел среди них.

Надеюсь, это поможет! Если у тебя возникнут еще вопросы или что-то не будет понятно, не стесняйся спрашивать. Удачи!