/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/UntypedFile.pas
19 строк
373 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Бестиповые файлы var f: file; i: integer; r: real; s: string; begin assign(f,'a.dat'); rewrite(f); // Записываем в файл данные любых типов write(f,1,2.5,'Hello'); close(f); reset(f); // Считываем эти данные из файла read(f,i,r,s); write(i,' ',r,' ',s); close(f); end.