Question

написать программу на Pascal :с клавиатуры вводятся 10 произвольных целых чисел. необходимо подсчитать и вывести на экран кол-во четных и кол-во нечетных среди них

Answer 1

program n1;

var x, p, n, i:integer;

begin

p:=0;

n:=0;

for i:=1 to 10 do begin

readln(x);

if x mod 2=0 then p:=p+1 else n:=n+1;

end;

writeln ('Четных чисел ', p);

writeln ('Нечетных чисел ', n);

end.

Answer 2

Для подсчета количества четных и нечетных чисел среди 10 произвольных целых чисел в Pascal, вам понадобится следующий код:

pascalCopy code
program CountEvenOdd;

var
  i, num, evenCount, oddCount: integer;

begin
  evenCount := 0;
  oddCount := 0;

  writeln('Введите 10 произвольных целых чисел:');
  
  for i := 1 to 10 do
  begin
    readln(num);

    if num mod 2 = 0 then
      evenCount := evenCount + 1
    else
      oddCount := oddCount + 1;
  end;

  writeln('Количество четных чисел: ', evenCount);
  writeln('Количество нечетных чисел: ', oddCount);
  
  readln;
end.

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