Question

Помогите подалуйста. В программе паскаль, написать программу, которая сравнивает два действительных числа x, y. Если x больше чем y находит их сумму, а произведение если это не так. Спасибо

Answer 1

Program n_1;

var x,y:double;

begin

   read(x,y);

   if x>y then x:=x+y

   else x:=x*y;

   writeln(x:0:5);

end.

Answer 2

Конечно, помогу! Ниже приведена программа на языке Паскаль, которая сравнивает два действительных числа x и y, а затем выводит их сумму, если x больше y, или произведение, если x меньше либо равно y.

pascalCopy code
program CompareNumbers;

var
  x, y, result: real;

begin
  { Введите два числа }
  write('Введите первое число x: ');
  readln(x);
  
  write('Введите второе число y: ');
  readln(y);
  
  { Сравнение и нахождение суммы или произведения }
  if x > y then
    result := x + y
  else
    result := x * y;
  
  { Вывод результата }
  writeln('Результат: ', result);
end.

Вы можете скопировать этот код в среду разработки Паскаля и запустить программу. После запуска она запросит у вас два действительных числа x и y, после чего выведет результат - либо сумму x + y, либо произведение x * y, в зависимости от того, какое число больше.