|
Текст проги:
program num;
var a:integer;f:file of integer;
begin
assign(f,'d:\input.dat');
reset(f);
read(f,a);
write(a);
read(a);{}
end.
Выводит:
13874
Содержание d:\input.dat:
26
Текстовый редактор - Turbo Pascal 7.0
Последний раз редактировалось GreatLion; 23.11.2005 в 10:46.
|