Задача 1 Урок 18
Primary tabs
Создайте файл в вашей операционной системе и выведите в консоль всё его содержимое.
Var f1:text; filename, s: string; begin filename := 'C:\Users\Gomynkyl\AppData\Local\Temp\input.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
- 642 reads
vedro-compota
Sun, 10/03/2021 - 12:38
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)