Написать фрагмент программы на основе заданного алгоритма в паскале: ввод x, y; если (x> 0) или (y< 0) то m=x+y/xy; если (x< 0l или =y> 0) то m=(x-y) (x+y) ; вывод m;
Обратите внимание, если во втором условии 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.
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.