Bài 1:Cho tệp ‘ SO.INP’ gồm nhiều dòng, mỗi dòng chứa duy nhất một số nguyên.
1. Đưa ra màn hình các số nguyên âm ở trong tệp
2. Hãy tính TỔNG các số chia hết cho 3 và 5 ở trong tệp và ghi kết quả vào tệp ‘SOLOUT’
Bài 2:Cho tệp ‘ BAITAP.TXT’ chứa các số nguyên dương được phân cách với nhau bởi dấu cách và không kết thúc bằng kí tự xuống dòng.
1.Hãy đếm và đưa ra màn hình số lượng các số chia hết cho 5 ở trong tệp .
2.Hãy tạo tệp ‘ KQ.OUT’ chứa các số chính phương trong tệp ‘ BAITAP.TXT’
Tin 11 ạ , em đang cần gấp mọi người giúp em với .
Const Fi=’SO.INP’;
Fo=’SOL.OUT’;
Var f,g: text;
A: array[1..10000] of longint;
n,i,s: longint;
Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
Readln(f,n);
For i:=1 to n do Readln(f,A[i]);
For i:=1 to n do
Begin
If A[i]<0 then Write(A[i],’ ‘);
If A[i] mod 15 = 0 then s:=s+A[i];
End;
Write(g,s);
Close(f);
Close(g);
End.