Infiniti_Inter

III/18

May 12th, 2021
486
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. program III;//название
  3. var//объявление переменных
  4. i : integer;//индекс
  5. begin
  6.     //очень странные закономерности. Проще просто вывести как просят, чем
  7.     //продумывать можественные условия вывода.
  8.     WriteLN('9');
  9.     WritelN('4');
  10.     for i:= 1 to 2 do
  11.         Write('8 ');
  12.     WriteLN;
  13.     for i:= 1 to 2 do
  14.         Write('3 ');
  15.     WriteLN;
  16.     for i:= 1 to 3 do    
  17.         Write('7 ');
  18.     WriteLN;
  19.     for i:= 1 to 4 do    
  20.         Write('2 ');
  21.     WriteLN;
  22.     for i:= 1 to 5 do
  23.         Write('6 ');
  24.     WriteLN;
  25.     for i:= 1 to 5 do
  26.         Write('1 ');
  27.     WriteLN;
  28. end.
RAW Paste Data