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

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

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

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.

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.

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