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

var
x,y,t:integer;
vvod:char;
begin
readln(x,y);
readln(vvod)
if vvod='a' then x:=x-y
else if vvod='b' then x:=x+y
else if vvod='c' then begin
t:=x;
x:=y;
y:=t;
end
else writeln('vvod neveren');
writeln('x=',x,' y=',y);
readln;
end.

Похожие записи/страницы:

Leave a Comment

41 − = 37