/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/12_Files/Text2.pas
13 строк
379 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Программа, выводящая текст в файл a.txt var f: Text; a: array of string := ('Каждый','охотник','желает','знать','где','сидит','фазан'); begin assign(f,'a.txt'); rewrite(f); for var i:=0 to a.Length-1 do writeln(f,a[i]); close(f); writeln('Текст записан в файл a.txt'); end.