Question

Помогите написать фрагмент программы на основе заданного алгоритма в паскале:
Ввод x, y;
Если (x>0) или (y<0) то m=x+y/xy;
Если (x<0l или =y>0) то m=(x-y) (x+y) ;
Вывод m;

Answer 1

Обратите внимание, если во втором условии y>=0, то необходимо заменить знак в программе

program ryazantsev;
var x,y,m:real;
begin
m:=0;
readln(x, y);
if (x>0) and (y<0) then m:=(x+y)/(x*y);
if (x<0) or (y>0) then m:=(x-y)/(x+y); //y>0 или y>=0 - у вас ошибка в условии
writeln(m)
end.