Bài tập kiểu tệp hay

Bài toán: Cho tệp văn bản SONGUYEN.TXT có cấu trúc như sau:- Dòng đầu chứa số nguyên dương N - Dòng tiếp theo chứa N số nguyên, mỗi số cách nhau ít nhất một kí tự trắng Viết chương trình

Bài toán: Cho tệp văn bản SONGUYEN.TXT có cấu trúc như sau:

- Dòng đầu chứa số nguyên dương N

- Dòng tiếp theo chứa N số nguyên, mỗi số cách nhau ít nhất một kí tự trắng Viết chương trình ghi vào tệp NGUYENTO.TXT các số nguyên tố có trong tệp SONGUYEN.TXT.

********************************

{Chuong trinh tao tep van ban NGUYENTO.TXT}

Var f1,f2:text;

I,n,x,dem:integer;

Begin

Assign(f1,’songuyen.txt’);reset(f1);

Assign(f2,’nguyento.txt’);rewrite(f2);

While not eoln(f1) do read(f1,n);

While not eof(f1) do

Begin

Read(f1,x); {write(x:5);}

If x=1 then {write(f2) hoac write(f2,’ ‘) hoac write(‘ ‘)}

Else if x<4 then write(f2,x:5)

Else

Begin

Dem:=0;

For i:=2 to trunc(sqrt(x)) do

If x mod i=0 then dem:=dem+1;

If dem=0 then write(f2,x:5);

End;

End;

Writeln;

Close(f1);

Close(f2);

Readln

End

NOTE: {Chuong trinh tao tep van ban SONGUYEN.TXT}

Const Nmax=100;

Var f1:text;

A:array[1 nmax]of integer;

i.n:integer;

begin

assign(f1,’songuyen.txt’); rewrite(f1);

write(‘nhap n: ‘); readln(n);

writeln(f1,n);

for i:=1 to n

begin

write(‘nhap so thu ‘, I , ‘: ‘); readln(a[i]);

write(f1,a[i]:5);

end;

close(f1);

readln

end