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.

Bài 1:

program bai_giai;
uses crt;
var f,g:text;
    n,t:longint;
begin
    clrscr;
    Assign(f,'SO.INP');  reset(F);
    Assign(g,'SO.OUT');  rewrite(g);
    t:=0;
    while not eof(f) do
        begin
            readln(f,n);
            if n<0 then write(n,' ');
            if (n mod 3=0) and (n mod 5=0) then t:=t+n;
        end;
    write(g,t);
    close(f); close(g);
    readln;
end.

Bài 2:

program bai_giai;
uses crt;
var f,g:text;
    n,d:longint;
begin
    clrscr;
    Assign(f,'BAITAP.INP');  reset(F);
    Assign(g,'SKQ.OUT');  rewrite(g);
    d:=0;
    while not eof(f) do
        begin
            read(f,n);
            if n mod 5=0 then d:=d+1;
            if sqrt(n)=trunc(sqrt(n)) then write(g,n,' ');
        end;
    write(d);
    close(f); close(g);
    readln;
end.