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

82.                                                                                                                                                         write('Задайте числа :');

83.                                                                                                                                                         for i:=1 to n do

84.                                                                                                                                                         read(Chisla[i]);

85.                                                                                                                                                         write('Задайте k (на него должна делиться сумма без остатка) :'); readln(k);

86.                                                                                                                                                         fnd:=false;

87.                                                                                                                                                         for m:=1 to n do

88.                                                                                                                                                         begin

89.                                                                                                                                                         GenerateSochet(Idx,n,m,kol);

90.                                                                                                                                                         Writeln (' * * * Перебор сочетаний по ',M,' элементов! * * *');

91.                                                                                                                                                         Writeln (tf,' * * * Перебор сочетаний по ',M,' элементов! * * *');

92.                                                                                                                                                         for i:=1 to kol-1 do

93.                                                                                                                                                         begin

94.                                                                                                                                                         S:='';

95.                                                                                                                                                         for j:=1 to m do

96.                                                                                                                                                         begin

97.                                                                                                                                                         Str(Chisla[Idx[i,j]],St);

98.                                                                                                                                                         S := S + St + ' ';

99.                                                                                                                                                         end;

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