Advertisement
Guest User

Untitled

a guest
Dec 5th, 2016
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.40 KB | None | 0 0
  1. program sdfs;
  2. var n,m,l,i,f,d:integer;
  3. begin
  4. read(n,m,l);
  5. f := 0;
  6. if (l > m) and (l > n) and (f = 0) then begin
  7. f := 1;
  8. d := 0;
  9. while d = 0 do begin
  10. if l > 0 then begin l := l - 1; write(3); end;
  11. if m > 0 then begin m := m - 1; write(2); end else if (m = 0) and (l > 0) then d := 1;
  12. if n > 0 then begin n := n - 1; write(1); end else d := 1;
  13. end;
  14. for i := 1 to n do begin
  15. write(1);
  16. end;
  17. end;
  18. if (m > l) and (m > n) and (f = 0) then begin
  19. f := 1;
  20. d := 0;
  21. while d = 0 do begin
  22. if m > 0 then begin m := m - 1; write(2); end else if (m = 0) and (l > 0) then d := 1;
  23. if n > 0 then begin n := n - 1; write(1); end else d := 1;
  24. if l > 0 then begin l := l - 1; write(3); end;
  25. end;
  26. end;
  27. if (n > l) and (n > m) and (f = 0) then begin
  28. f := 1;
  29. d := 0;
  30. while d = 0 do begin
  31. if n > 0 then begin n := n - 1; write(1); end else d := 1;
  32. if l > 0 then begin l := l - 1; write(3); end;
  33. if m > 0 then begin m := m - 1; write(2); end else if (m = 0) and (l > 0) then d := 1;
  34. end;
  35. for i := 1 to n do begin
  36. write(1);
  37. end;
  38. end;
  39. if (n < l) and (l = m) and (f = 0) then begin
  40. f := 1;
  41. d := 0;
  42. while d = 0 do begin
  43. if l > 0 then begin l := l - 1; write(3); end;
  44. if m > 0 then begin m := m - 1; write(2); end else if (m = 0) and (l > 0) then d := 1;
  45. if n > 0 then begin n := n - 1; write(1); end else d := 1;
  46. end;
  47. end;
  48. if (n = l) and (l > m) and (f = 0) then begin
  49. f := 1;
  50. d := 0;
  51. while d = 0 do begin
  52. if n > 0 then begin n := n - 1; write(1); end else d := 1;
  53. if l > 0 then begin l := l - 1; write(3); end;
  54. if m > 0 then begin m := m - 1; write(2); end else if (m = 0) and (l > 0) then d := 1;
  55. end;
  56. for i := 1 to n do begin
  57. write(1);
  58. end;
  59. end;
  60. if (n = m) and (l < m) and (f = 0) then begin
  61. f := 1;
  62. d := 0;
  63. while d = 0 do begin
  64. if n > 0 then begin n := n - 1; write(1); end else d := 1;
  65. if m > 0 then begin m := m - 1; write(2); end else if (m = 0) and (l > 0) then d := 1;
  66. if l > 0 then begin l := l - 1; write(3); end;
  67. end;
  68. for i := 1 to n do begin
  69. write(1);
  70. end;
  71. end;
  72. if (n = m) and (l = m) and (f = 0) then begin
  73. f := 1;
  74. d := 0;
  75. while d = 0 do begin
  76. if n > 0 then begin n := n - 1; write(1); end else d := 1;
  77. if m > 0 then begin m := m - 1; write(2); end else if (m = 0) and (l > 0) then d := 1;
  78. if l > 0 then begin l := l - 1; write(3); end;
  79. end;
  80. for i := 1 to n do begin
  81. write(1);
  82. end;
  83. end;
  84. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement