Question

Паскальь Даны три целых числа,вычислить их сумму и произведение и вывести их на печать,если сумма первых двух больше суммы вторых двух, иначе найти их среднее арифметическое и вывести их на печать .Решать через слова if и then и else Ребят прям срочно​

Answer 1

var

       a, b, c: Integer;

       

begin

       Read (a, b, c);

       

       if (a + b) > (b + c) then

               Write (a + b + c, ' ', a * b * c)

       else

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

end.        

Answer 2

Конечно, вот как выглядит код на языке Pascal, который выполняет указанные вами действия:

pascalCopy code
program SumProdAverage;

var
  num1, num2, num3, sum, prod: integer;
  average: real;

begin
  writeln('Введите первое число:');
  readln(num1);
  
  writeln('Введите второе число:');
  readln(num2);
  
  writeln('Введите третье число:');
  readln(num3);
  
  sum := num1 + num2;
  prod := num1 * num2;
  
  if sum > (num2 + num3) then
  begin
    writeln('Сумма первых двух чисел больше суммы второго и третьего чисел.');
    writeln('Сумма: ', sum);
    writeln('Произведение: ', prod);
  end
  else
  begin
    average := (num1 + num2 + num3) / 3;
    writeln('Сумма первых двух чисел НЕ больше суммы второго и третьего чисел.');
    writeln('Среднее арифметическое: ', average:0:2);
  end;
end.

Просто скопируйте этот код в среду разработки Pascal, запустите и введите три целых числа. Программа выведет на печать сумму и произведение чисел, если условие выполняется, или среднее арифметическое, если условие не выполняется.