Question

СРОЧНО!!!!! Написать программу на Паскале Условие задачи Даны три числа, если они все четные найти их средне арифметическое, если они все нечетные найти их сумму и произведение.​

Answer 1

// PascalABC.NET

begin

 var (a, b, c) := ReadInteger3('Введи три числа:');

 if a.IsOdd and b.IsOdd and c.IsOdd then

   Print(a + b + c, a * b * c)

 else if a.IsEven and b.IsEven and c.IsEven then

   Print((a + b + c) / 3)

end.

Answer 2

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

pascalCopy code
program Main;

var
  a, b, c: integer;
  sum, product, average: real;

begin
  writeln('Введите три числа:');
  readln(a, b, c);

  if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0) then
  begin
    average := (a + b + c) / 3;
    writeln('Среднее арифметическое трех четных чисел:', average:0:2);
  end
  else if (a mod 2 <> 0) and (b mod 2 <> 0) and (c mod 2 <> 0) then
  begin
    sum := a + b + c;
    product := a * b * c;
    writeln('Сумма трех нечетных чисел:', sum);
    writeln('Произведение трех нечетных чисел:', product);
  end
  else
    writeln('Среди введенных чисел есть как четные, так и нечетные.');

  readln;
end.

Скопируйте этот код в среду разработки Pascal (например, Lazarus или Turbo Pascal), чтобы выполнить и проверить его.