ответ:
объяснение:
1) без составных условий.
program abc;
var x,y,v: real;
begin
readln(x,y);
if (x> 1) then
begin
if (y> 1) then
v: =x+y
else
v: =x-y;
end
else begin
if (y> 1) then
v: =-x+y
else
v: =-x-y;
end;
writeln(v);
end.
2) с составным.
program abc;
var x,y,v: real;
begin
readln(x,y);
if (x> 1) and (y> 1) then
v: =x+y;
if (x> 1) and (y< =1) then
v: =x-y;
if (x< =1) and (y< =1) then
v: =-x-y;
if (x< =1) and (y> 1) then
v: =-x+y;
writeln(v);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Соединение компьютеров, расположенных достаточно близко в ограниченном пространстве (помещение, этаж, здание) 1) вычислительная сеть 2) микрокомпьютерная сеть 3) модемная сеть 4) геоинформационная сеть 5) локальная вычислительная сеть