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

10.                                                                                                                                                         Idx : Arr2;

11.                                                                                                                                                         Chisla: Arr;

12.                                                                                                                                                         fnd : boolean;

13.                                                                                                                                                         tf:TEXT;

14.                                                                                                                                                         S,St:string;

15.                                                                                                                                                         Procedure Info(var ft:TEXT);

16.                                                                                                                                                         begin

17.                                                                                                                                                         writeln('************************************************');

18.                                                                                                                                                         writeln('**** КУРСОВАЯ РАБОТА ПО ПРОГРАММИРОВАНИЮ ****');

19.                                                                                                                                                         writeln('** **');

20.                                                                                                                                                         writeln('** Задана последовательность из n чисел **');

21.                                                                                                                                                         writeln('** Выбрать в последовательности несколько таких чисел, **');

22.                                                                                                                                                         writeln('** чтобы их сумма делилась на m. **');

23.                                                                                                                                                         writeln('**** ****');

24.                                                                                                                                                         writeln('************************************************');

25.                                                                                                                                                         writeln;

26.                                                                                                                                                         writeln(ft,'**********************************************');

27.                                                                                                                                                         writeln(ft,'**** КУРСОВАЯ РАБОТА ПО ПРОГРАММИРОВАНИЮ ****');

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