Как скопировать гибкий магнитный диск?

Question

Информатика: Как скопировать гибкий магнитный диск?

Alekskarpov · Accepted Answer

1)
var k,a,i,n : integer;
t : Text;
  begin
readln (k);
n := 0;
Assign (t,'test.txt');
Reset(t);
i := 1;
while not Eof(t) do
begin
read (t,a);
if a = k then
n := i;
i := i +1;
end;
Close (t);
writeln (n);
end.

2)

var
t,t1,t2 : Text;
i : integer;
a : real;
begin
Assign (t,'text.txt');
Reset (t);
Assign (t1,'r1.txt');
rewrite (t1);
Assign (t2,'r2.txt');
rewrite (t2);
   i := 1;
   while not Eof(t)
do
begin
read (t,a);
if i mod 2 = 1 then
write (t1,a:3:3,' ')
else
write (t2,a:3:3,' ');
i:= i +1;
   end;
Close (t);
Close (t1);
Close (t2);
end.

MOGZ ответил