Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project1;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- var
- x, y, route, a, n, i, p: integer;
- begin
- readln(x, y);
- readln(n);
- route := 1;
- //1 - вверх
- //2 - влево
- //3 - вниз
- //4 - впарво
- for i := 1 to n do
- begin
- p := 0;
- read(a);
- case (a) of
- 2: p := 2;
- 4, 3: p := 1;
- end;
- route := (route + 3 + n) mod 4 + 1;
- case (route) of
- 1: inc(y);
- 2: inc(x);
- 3: dec(y);
- 4: dec(x);
- end;
- writeln(route);
- end;
- writeln(x, ' ', y);
- readln;
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment