Question

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

Answer 1

Ответ:

PascalABC.NET 3.6.2

begin

 var S := ReadSeqIntegerWhile(p -> p <> 0).ToList;

 var odd := S.Where(p -> p mod 2 <> 0).Count;

 var even := S.Where(p -> p mod 2 = 0).Count;

 var diff := abs(even - odd);

 diff.Println;

end.

Answer 2

// PascalABC.NET

begin

   var diff := 0;

   ReadSeqIntegerWhile(p -> p <> 0)

       .Foreach(p -> begin diff += p.IsOdd ? -p : p end);

   diff.Print

end.

Answer 3

Конечно, вот пример программы на языке Паскаль, которая решает данную задачу:

pascalCopy code
program DifferenceEvenOddCount;

var
  num, evenCount, oddCount: integer;

begin
  evenCount := 0;
  oddCount := 0;

  repeat
    readln(num);

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

  writeln('Разность количества четных и нечетных чисел: ', evenCount - oddCount);
end.

Эта программа считывает числа, пока не будет введено число 0. Если введено нечетное число, увеличивается счетчик нечетных чисел, а если четное, то увеличивается счетчик четных чисел. По завершении ввода программа выводит разность количества четных и нечетных чисел.