Advertisement
jayadamsmorgan

паскакаль

Jan 19th, 2017
112
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.66 KB | None | 0 0
  1. 1.)
  2. begin
  3.     if Y1 then
  4.         begin
  5.             if Y2 then
  6.                 C1;
  7.         end
  8.     else
  9.         begin
  10.             if Y3 then
  11.                 C2;
  12.             else
  13.                 C3;
  14.         end
  15. end
  16.  
  17. 2.)
  18. begin
  19.     while Y1 do
  20.         begin
  21.             if Y2 then
  22.                 C1;
  23.             else
  24.                 C2;
  25.         end
  26. end
  27.  
  28. 3.)
  29. begin
  30.     while Y1 do
  31.         begin
  32.             while Y2 do
  33.                 begin
  34.                     C1;
  35.                 end
  36.         end
  37. end
  38.  
  39. 4.)
  40. begin
  41.     if Y1 then
  42.         begin
  43.             if Y2 then
  44.                 C1;
  45.             else
  46.                 C2;
  47.             if Y3 then
  48.                 C3;
  49.             else
  50.                 C4;
  51.         end
  52.     else
  53.         begin
  54.             while Y4 do
  55.                 begin
  56.                     C5;
  57.                 end
  58.         end
  59. end
  60.  
  61. 5.)
  62. begin
  63.     if Y1 then
  64.         C1;
  65.     else
  66.         C2;
  67.     repeat
  68.         C3;
  69.     until Y2
  70. end
  71.  
  72. 6.)
  73. begin
  74. while Y1
  75.     begin
  76.         repeat
  77.             C1;
  78.         until Y2
  79.     end
  80. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement