Цитата:
Сообщение от borntank
Спасибо большое,но можно чтоб в блокноте выводились нужные числа (в файле G были нечетные числа,а F все числа)?
|
Как указывалось выше (и мною, и AlexZir), это возможно только при текстовом типе файлов. Если таковой допустим, то так:
Код:
Var
F,G:Text;
i,N:Integer;
Begin
Assign(F,'D:\First');
Assign(G,'D:\Second');
ReWrite(F);
Randomize;
For i:=1 to 1000 do
begin
N:=-50+Random(101);
Write(F,N:4);
end;
Close(F);
ReSet(F);
ReWrite(G);
For i:=1 to 1000 do
begin
Read(F,N);
If (N mod 2)<>0 then Write(G,N:4);
end;
Close(F);
Close(G);
End.