давно
Старший Модератор
31795
6196
23.11.2007, 21:21
общий
это ответ
Здравствуйте, Pavl!
Смотрите приложение.
типизированный файл для чисел целого типа.
Удачи
Приложение:
program q109997; var a:integer;{число для ввода} b:string;{имя файла} c:file of integer;{} begin write(‘input file name:‘); readln(b);{вводим имя файла} assign(c,b);{открываем файл} rewrite(c);{для записи} repeat write(‘input number:‘); readln(a);{читаем число} write(c,a);{записываем} until a=0;{если А=0 стоп} close(c);{закрываем файл} end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.