Question

1. Tệp 'DAYSO.txt' trên đĩa D chứa dãy các số nguyên. (Mỗi số nằm trên 1 dòng).
a) Viết chương trình tính tổng các số trong tệp 'DAYSO.txt', ghi kết quả vào tệp 'TONG.txt'.
b) Viết chương ghi vào tệp 'KQ.txt' các số chẵn, các số lẻ có trong tệp 'DAYSO.txt'.
C) Viết chương trình đưa ra màn hình các số nguyên tố có trong tệp 'DAYSO.txt'.
..Giúp mình với ạ

Answer 1

uses crt;
const fi='dayso.txt';
fa='tong.txt';
fb='kq.txt';
var f1,f2,f3:text;
a:array[1..100]of integer;
n,i,t,kt,j:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fa); rewrite(f2);
assign(f3,fb); rewrite(f3);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n]);
end;
{--------------------------cau-a--------------------------}
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(f2,'tong cua day so la: ',t);
{--------------------------cau-b--------------------------}
writeln(f3,'cac so chan trong day la: ');
for i:=1 to n do
if a[i] mod 2=0 then write(f3,a[i]:4);
writeln(f3);
writeln(f3,'cac so le trong day la: ');
for i:=1 to n do
if a[i] mod 2<>0 then write(f3,a[i]:4);
{--------------------------cau-c--------------------------}
writeln('cac so nguyen to trong day la: ');
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
close(f1);
close(f2);
close(f3);
readln;
end.