Марина
6 год назад
Составить по алгоритму программу на языке программирования Pascal.
ОТВЕТЫ
Козловский
Aug 7, 2019
Program n6;
var x,y,v: real;
begin
readln(x);
readln(y);
if(xgt;1) and(ygt;1) then do v:=x+y;
if(xgt;1) and(ylt;=1) then do v:=x-y;
if(xlt;=1) and(ygt;0) then do v:=y-x;
if(xlt;=1) and(ylt;=0) then do v:=-x-y;
writeln(v);
end.
65
