Dennnhhhickk

Untitled

Oct 7th, 2016
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.98 KB | None | 0 0
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. const
  9. MAXIN = 10000;
  10.  
  11. var
  12. n, p, i, j, z, j1, j2, i1, i2: integer;
  13. s: string;
  14. a: array [1..MAXIN, 1..MAXIN] of integer;
  15.  
  16. begin
  17. readln(n);
  18.  
  19. for i := 1 to n do
  20. begin
  21. readln(s);
  22. j := 1;
  23. z := 1;
  24. while j <= length(s) do
  25. begin
  26. a[i][z] := strtoint(s[j]) * 10 + strtoint(s[j + 1]);
  27. inc(z);
  28. inc(j, 2);
  29. end;
  30. end;
  31.  
  32. //for i := 1 to n do
  33. //begin
  34. //for j := 1 to n do
  35. //write(' ', a[i][j]);
  36. //writeln;
  37. //end;
  38.  
  39. i1 := 1;
  40. i2 := n;
  41. j1 := 1;
  42. j2 := n;
  43.  
  44. for p := 1 to n div 2 + 1 do
  45. begin
  46. for j := j1 to j2 do
  47. write(char(a[i1][j] + 96));
  48. inc(i1);
  49. for i := i1 to i2 do
  50. write(char(a[i][j2] + 96));
  51. dec(j2);
  52. for j := j2 downto j1 do
  53. write(char(a[i2][j] + 96));
  54. dec(i2);
  55. for i := i2 downto i1 do
  56. write(char(a[i][j1] + 96));
  57. inc(j1);
  58. end;
  59.  
  60. readln;
  61. readln;
  62. end.
Advertisement
Add Comment
Please, Sign In to add comment