Question

Pascal ABC Напишите программу, которая позволит подсчитать количество четных чисел, вводимых с клавиатуры. Вывод результата по вводу нуля​

Answer 1

program g_worlds;

var i,x : integer;

 begin

   i := 1;

   while i <> 0 do

   begin

     readln(i);

     if i mod 2 = 0 then

       x := x +1

   end;

   

   write(x-1);

 end.

Answer 2

Конечно! Вот пример программы на языке Pascal ABC, которая позволит вам подсчитать количество четных чисел, вводимых с клавиатуры, и выведет результат при вводе нуля:

pascalCopy code
program CountEvenNumbers;

var
  number, count: Integer;

begin
  count := 0;
  
  repeat
    Write('Введите число: ');
    Readln(number);
    
    if (number mod 2 = 0) and (number <> 0) then
      count := count + 1;
  until number = 0;
  
  Writeln('Количество четных чисел: ', count);
end.

Программа будет запрашивать числа с клавиатуры до тех пор, пока не будет введен ноль. Каждый раз, когда введенное число является четным и не является нулем, счетчик увеличивается на единицу. После ввода нуля программа выводит количество четных чисел, которые были введены.

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