Question

С клавиатуры вводятся числа (положительные и отрицательные). Ввод чисел заканчивается нулем. Найти количество четных положительных и нечетных отрицательных. Вывести каких больше (НА ПАСКАЛЕ)

Answer 1

program ch;

uses

crt;

var

k, cp, no: integer;

begin

k := 1;

cp := 0;

no := 0;

while k <> 0 do

begin

readln(k);

if ((k < 0) and (k mod 2 <> 0)) then

no := no + 1 ;

if ((k > 0) and (k mod 2 = 0)) then

cp := cp + 1 ;

end;

if no > cp then

writeln('Больше нечетных отрицательных') ;

if no < cp then

writeln('Больше четных положительных') ;

if no = cp then

writeln('Количество четных положительных равно количеству нечетных отрицательных') ;

readln;

end.

Answer 2

Конечно, вот пример кода на Pascal (Delphi), который решает данную задачу:

pascalCopy code
program CountEvenPositiveAndOddNegative;

var
  num: Integer;
  evenPositiveCount, oddNegativeCount: Integer;

begin
  evenPositiveCount := 0;
  oddNegativeCount := 0;

  repeat
    Write('Введите число: ');
    Readln(num);

    if num > 0 then
    begin
      if num mod 2 = 0 then
        Inc(evenPositiveCount);
    end
    else if num < 0 then
    begin
      if num mod 2 <> 0 then
        Inc(oddNegativeCount);
    end;

  until num = 0;

  Writeln('Количество четных положительных: ', evenPositiveCount);
  Writeln('Количество нечетных отрицательных: ', oddNegativeCount);

  if evenPositiveCount > oddNegativeCount then
    Writeln('Четных положительных больше')
  else if evenPositiveCount < oddNegativeCount then
    Writeln('Нечетных отрицательных больше')
  else
    Writeln('Четных положительных и нечетных отрицательных поровну');

  Readln;
end.

Просто скопируйте этот код в среду программирования Pascal (например, Free Pascal) и выполните его. Он будет запрашивать числа с клавиатуры до тех пор, пока не будет введен 0, и затем выведет количество четных положительных и нечетных отрицательных чисел, а также сообщение о том, каких чисел больше.