Лабораторная работа: Обработка текстовых файлов

64.                                                                                                                                                         while (Sochet[kol,ii]=(n-m+ii))and(ii>0) do

65.                                                                                                                                                         ii:=ii-1; { поиск элемента для изменения }

66.                                                                                                                                                         Sochet[kol,ii]:=Sochet[kol,ii]+1;

67.                                                                                                                                                         for jj:=ii+1 to m do

68.                                                                                                                                                         Sochet[kol,jj]:=Sochet[kol,jj-1]+1; { изменение правой части сочетания }

69.                                                                                                                                                         until ii=0;

70.                                                                                                                                                         end;

71.                                                                                                                                                         begin

72.                                                                                                                                                         clrscr;

73.                                                                                                                                                         assign(tf,'sochet.res');

74.                                                                                                                                                         rewrite(tf);

75.                                                                                                                                                         INFO(tf);

76.                                                                                                                                                         write('Задайте количество чисел n :'); readln(n);

77.                                                                                                                                                         while (n<1) or (n>20) do

78.                                                                                                                                                         begin

79.                                                                                                                                                         write('Ошибочный ввод! Задайте количество чисел n (n>0;n<21):');

80.                                                                                                                                                         readln(n);

81.                                                                                                                                                         end;

Страницы: 1, 2, 3, 4, 5, 6, 7, 8