Cotius
6 год назад
Разработайте алгоритм вычисления функции v.
ОТВЕТЫ
Яковлевич
Aug 7, 2019
Программа на паскале:
var x,y,v:real;
begin
readln(x,y);
if xgt;1
then if ygt;1 then v:=x+y else v:=x-y
else if ygt;0 then v:=-x+y else v:=-x-y;
writeln(v = ,v);
end.
Пример:
5 -1
v = 6
var x,y,v:real;
begin
readln(x,y);
if xgt;1
then if ygt;1 then v:=x+y else v:=x-y
else if ygt;0 then v:=-x+y else v:=-x-y;
writeln(v = ,v);
end.
Пример:
5 -1
v = 6
180
