Dennnhhhickk

Untitled

Sep 20th, 2016
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.57 KB | None | 0 0
  1. program Project1;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. var
  9. x, y, route, a, n, i, p: integer;
  10.  
  11. begin
  12. readln(x, y);
  13. readln(n);
  14. route := 1;
  15. //1 - вверх
  16. //2 - влево
  17. //3 - вниз
  18. //4 - впарво
  19.  
  20. for i := 1 to n do
  21. begin
  22. p := 0;
  23. read(a);
  24. case (a) of
  25. 2: p := 2;
  26. 4, 3: p := 1;
  27. end;
  28. route := (route + 3 + n) mod 4 + 1;
  29. case (route) of
  30. 1: inc(y);
  31. 2: inc(x);
  32. 3: dec(y);
  33. 4: dec(x);
  34. end;
  35. writeln(route);
  36. end;
  37.  
  38. writeln(x, ' ', y);
  39. readln;
  40. readln;
  41. end.
Advertisement
Add Comment
Please, Sign In to add comment