Question

Некоторый автомат может за два
числа и выполнить 3 команды. Составьте
программу, которая по команде 1
преобразует имеющуюся пару чисел (х, у) в
пару (х-у, у), по команде 2 преобразует пару
чисел (х, у) в пару (х+у, у), по команде 3
преобразует пару (x, у) в (у, х).
ОЧЕНЬ

Answer 1

var x,y,cmd, a: integer;

begin

 readln(x, y);

 readln(cmd);

 if cmd =1 then

   x:=x-y;

 if cmd = 2 then

   x:=x+y;

 if cmd = 3 then

   begin

       a:=x;

       x:=y;

       y:=a;

   end;

 writeln(x);

 writeln(y);

end.

Краткий гайд: x, y - числа, над которыми производят операции.

cmd - номер комманды (ВАЖНО: нет защиты от неправильного ввода)

а - переменная-буффер, понадобится если cmd = 3.