Файл

[Алeксандр]

зделать 2 программы:
1)создать файл и записать туда N чисел
2)создать еще один файл и переписать в него из 1 все числа делящиеся н 3

[pomoshnic]

1)текстовый файл:

Const fn='f.txt';
Var f:text;
N,c:integer;
Begin
Writeln('Vvedite kolichestvo chisel');
Readln(n);
Assign(f,fn);
Rewrite(f);
While n<>0 do
Begin
Dec(n);
Readln(c);
Write(f,c,' ');
End;
End.

1) типизированный файл:

Const fn='f.bin';
Var f:file of integer;
N,c:integer;
Begin
Writeln('Vvedite kolichestvo chisel');
Readln(n);
Assign(f,fn);
Rewrite(f);
While n<>0 do
Begin
Dec(n);
Readln(c);
Write(f,c);
End;
End.

[pomoshnic]

2)текстовый:

Const fn='f.txt'; tn='out.txt';
Var f,t:text;
c:integer;
Begin
Assign(f,fn);
Assign(t,tn);
Reset(f);
Rewrite(t);
While not eof(f) do
Begin
Read(f,c);
If c mod 3 = 0 then Write(t,c);
End;
Close(f);
Close(t);
End.

2)типизированный:

Const fn='f.txt'; tn='out.txt';
Var f,t:file of integer;
c:integer;
Begin
Assign(f,fn);
Assign(t,tn);
Reset(f);
Rewrite(t);
While not eof(f) do
Begin
Read(f,c);
If c mod 3 = 0 then Write(t,c);
End;
Close(f);
Close(t);
End.

[puporev]

Вот в этой коструции n никогда не будет = 0 и цикл будет бесконечным.

While n<>0 do
Begin
Readln(c);
Write(f,c,' ');
End;

Не хватает мелочи, а именно dec(n);