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

99. end;

100. Sm := Summ(Chisla,Idx,m,i);

101. Str(Sm,St);

102. S:= S + ' Sum = '+St;

103. if (Sm mod k) = 0 then

104. begin

105. S:=S+ ' Искомая пара!';

106. writeln(S);

107. writeln(tf,S);

108. fnd := true;

109. break;

110. end else begin

111. writeln(S);

112. writeln(tf,S);

113. end;

114. end;

115. if fnd then break;

116. end;

117. if fnd then begin

118. writeln('Искомая комбинация найдена!');

119. writeln(tf,'Искомая комбинация найдена!')

120. end else begin

121. writeln('Искомая комбинация чисел НЕ найдена!');

122. writeln(tf,'Искомая комбинация чисел НЕ найдена!');

123. end;

124. Close(tf);

125. readln;

126. end.

ПРИЛОЖЕНИЕ В

Пример выполнения программы (поиск удачен)