Исполнитель Чертёжник перемещается на координатной плоскости, оставляя след в виде линии. Чертёжник может выполнять команду Сместиться на (a, b) (где a, b – целые числа), перемещающую Чертёжника из точки с координатами (x, y) в точку с координатами (x + a, y + b). Если числа a, b положительные, значение соответствующей координаты увеличивается, если отрицательные, уменьшается. Например, если Чертёжник находится в точке с координатами (7, -2), то команда Сместиться на (-2, 3) переместит Чертёжника в точку (5, 1).
Запись
Повтори k раз
Команда1 Команда2 Команда3
Конец
означает, что последовательность команд Команда1 Команда2 Команда3 повторится k раз.
Чертёжнику был дан для исполнения следующий алгоритм: Сместиться на (4, -2)
Повтори 5 раз
Сместиться на (2, 5)
Сместиться на (4, -1)
Конец
Сместиться на (-6, –7)
Какую единственную команду надо выполнить Чертёжнику, чтобы вернуться в исходную точку, из которой он начал движение?
Сместиться на (28, 11)
Сместиться на (-28, –11)
Сместиться на (-28, 11)
Сместиться на (28, –11)
uses crt;
var b,n,i,k,c,o,x1:integer;
f,s,ch:string;
r,g: text;
A:array [0..9] of integer;
begin
assign (r,'C:\Bin.txt');
reset (r);
readln (r,f);
close (r);
for i:=1 to length(f) do
begin
s:=copy(f,1,1);
if (s<>'0') or (s<>'1') or (s<>'2') or (s<>'3') or (s<>'4') or (s<>'5') or (s<>'6') or (s<>'7') or (s<>'8') or (s<>'9')then
delete(f,1,1);
if (s='0') or (s='1') or (s='2') or (s='3') or (s='4') or (s='5') or (s='6') or (s='7') or (s='8') or (s='9')then
begin
x1:=pos(s,ch);
if x1<>0 then
begin
delete(ch,x1,1);
ch:=ch+s;
end
else
ch:=ch+s;
end;
end;
val(ch,n,o);
N := Abs(N);
for i := 0 to 9 do
A[ i ] := 0;
while N > 0 do
begin Inc(A[ N mod 10]);
N := N div 10;
end;
assign (g,'C:\Bout.txt');
rewrite (g);
for i := 0 to 9 do
while A[ i ] > 0 do
begin Write(g,i);
Dec(A[ i ]);
end;
close(g);
end.