Question

Информатика. Уравнение. Паскаль

Answer 1

Ответ:

Объяснение:

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.