Question

если х больше у то найти х-у иначе квадратный корень х+у в паскале

Answer 1

Program z1;
var x,y,z:real;
begin
Write('Введите числа: ');
Write('x = '); read(x);
Write('y = '); read(y);
if x>y then z:=x-y
else z:=sqrt(x+y);
Writeln('Исходя из значений x и y, получится чило: ',z:6:2);
end.

P.S.: Z:6:2 нужно для того, чтобы уравнять десятичную дробь до сотых, если она получится.

Answer 2

В паскале, если значение переменной `х` больше значения переменной `у`, то необходимо найти разность `х - у`. В противном случае, если значение переменной `х` меньше или равно значению переменной `у`, необходимо найти квадратный корень из `х`.

Поиск значения `х - у`

Если значение переменной `х` больше значения переменной `у`, то разность `х - у` можно найти следующим образом:

var
  x, y, result: Integer;
begin
  // Ввод значений переменных x и y
  Write('Введите значение x: ');
  Readln(x);
  Write('Введите значение y: ');
  Readln(y);
  
  // Проверка условия и вычисление разности
  if x > y then
    result := x - y
  else
    result := y - x;
  
  // Вывод результата
  Writeln('Разность x - y: ', result);
end.

Поиск квадратного корня из `х`

Если значение переменной `х` меньше или равно значению переменной `у`, то квадратный корень из `х` можно найти следующим образом:

var
  x, y: Real;
begin
  // Ввод значений переменных x и y
  Write('Введите значение x: ');
  Readln(x);
  Write('Введите значение y: ');
  Readln(y);
  
  // Проверка условия и вычисление квадратного корня
  if x <= y then
    x := Sqrt(x);
  
  // Вывод результата
  Writeln('Квадратный корень из x: ', x);
end.

Примечание: В приведенных примерах предполагается, что вы работаете в среде программирования Pascal и имеете доступ к функциям ввода-вывода и математическим функциям, таким как `Readln`, `Writeln` и `Sqrt`.