Составить 2 программы:

1. Создаёт текстовый файл mir. txt содержащий 12 чисел введённых с клавиатуры.

2. Считать информацию из текстового файла mir. txt и вывести её на экран манитора.

1 задача.

var a, i:integer;

f1:text;

begin

assign (f1,'mir. txt') ;

rewrite (f1) ;

for i:=1 to 12 do begin read (a) ;

write (f1, a) ;

end;

close (f1) ;

end.

2 задача.

var a, i:longint;

f1:text;

begin

assign (f1, mir. txt') ;

reset (f1) ;

while not eoln (f1) do writeln (a) ;

close (f1) ;

end.

Писала на Паскале.

Var

r, i : integer;

begin

assign (output, 'mir. txt') ; rewrite (output) ;

for i : = 1 to 12 do

begin

read (r) ;

write (r) ;

end;

end.

Если информация любая, то:

var

c : char;

begin

assign (input, 'mir. txt') ; reset (input) ;

while not eof do

begin

read (c) ;

write (c) ;

end;

end.