Question

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

Answer 1

####################

Answer 2

Для вычисления суммы, разности, произведения и частного двух действительных чисел x и y в Pascal можно использовать следующую программу:

pascalCopy code
program ArithmeticOperations;

var
  x, y, sum, difference, product, quotient: real;

begin
  { Ввод данных }
  writeln('Введите первое число x:');
  readln(x);

  writeln('Введите второе число y:');
  readln(y);

  { Вычисления }
  sum := x + y;
  difference := x - y;
  product := x * y;

  { Проверка деления на ноль }
  if y <> 0 then
    quotient := x / y
  else
  begin
    writeln('Ошибка: нельзя делить на ноль.');
    Exit; // Выход из программы, если деление на ноль
  end;

  { Вывод результатов }
  writeln('Сумма x и y равна: ', sum);
  writeln('Разность x и y равна: ', difference);
  writeln('Произведение x и y равно: ', product);
  writeln('Частное x и y равно: ', quotient);

end.

При запуске программы, она запросит у пользователя ввести два действительных числа x и y, после чего вычислит и выведет их сумму, разность, произведение и частное (при условии, что второе число y не равно нулю).