Задача 1 урок 18
Primary tabs
Задача 1 урок 18
Создайте файл в вашей операционной системе и выведите в консоль всё его содержимое.
Var f1:text; // тип для открытия текстового файла filename, s: string; begin filename := 'C:\Users\boris\Documents\HTML\IFF.txt'; // путь к файлу assign(f1, filename); { связывание переменной дескриптора с путём к файлу } reset(f1); // открываем файла для чтения writeln('========nachalo faila====='); while not eof(f1) do // пока не достигнут конец файла begin readln(f1, s); // читаем из него очередную строку writeln(s); // и выводим её в консоль end; writeLn('========= konez faila ========='); readln(); end.
- Log in to post comments
- 914 reads
vedro-compota
Sun, 09/19/2021 - 12:22
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)