/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/12_Files/Text3.pas
19 строк
385 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 const n = 30; filename = 'pifagor.txt'; var f: Text; begin assign(f,filename); rewrite(f); for var i:=1 to n do begin for var j:=1 to n do write(f,i*j:4); writeln(f); end; close(f); writeln('Таблица умножения записана в файл '+filename); end.