Question

Введите ряд чисел,но как только пользователь вводит -1 программа должна сосчитать кол-во четных и нечетных сделайте программу в паскале

Answer 1

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadSeqIntegerWhile(t->t<>-1).ToArray;
  var k:=a.Where(x->x.IsEven).Count;
  Writeln('Четных чисел ',k,', нечетных ',a.Length-k)
end.

Пример
5 12 -3 7 0 12 43 -24 17 -1
Четных чисел 4, нечетных 5

Answer 2

Решение в Pascal

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

program CountEvenOddNumbers;

var
  number: Integer;
  evenCount, oddCount: Integer;

begin
  evenCount := 0;
  oddCount := 0;

repeat
    write('Введите число (для завершения введите -1): ');
    readln(number);

if number <> -1 then
    begin
      if number mod 2 = 0 then
        evenCount := evenCount + 1
      else
        oddCount := oddCount + 1;
    end;
  until number = -1;

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

Эта программа использует цикл `repeat...until`, который выполняется до тех пор, пока пользователь не введет число -1. Внутри цикла программа проверяет, является ли введенное число четным или нечетным, и увеличивает соответствующий счетчик. По завершении цикла программа выводит количество четных и нечетных чисел.

Примечание: Данное решение написано на языке Pascal и предназначено для выполнения в среде разработки, поддерживающей этот язык.