Составьте программу работы автомата, преобразовывающего числа — Pascal(Паскаль)

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

uses crt;

var
  x, y, number: integer;

begin;
  Clrscr;
  writeln('Введите число (x)');
  readln(x);
  writeln('Введите число (y)');
  readln(y);
  writeln('Какое преобразование следует выполнить:1.(x-y,y), 2.(x+y,y), 3.(y,x)');
  readln(number);
  case number of
    1:
      writeln(x - y, ',', y);
    2:
      writeln(x + y, ',', y);
    3:
      writeln(y, ',', x);
  end;

end.

Leave a Comment

60 + = 67