Question

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 .

Answer 1

Bài 1:

const fi='so.inp';
fo='so.out';
var f1,f2:text;
a:array[1..100]of integer;
dem,i,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eof(f1) do
begin
inc(dem);
readln(f1,a[dem]);
end;
writeln(f2,'Cac so nguyen am la: ');
for i:=1 to dem do
if a[i]<0 then write(f2,a[i]:4);
writeln(f2);
t:=0;
for i:=1 to dem do
if (a[i] mod 5=0) and (a[i] mod 3=0) then t:=t+a[i];
writeln(f2,'Tong cac so chia het cho 3 va 5 la: ',t);
close(f1);
close(f2);
end.

Bài 2:

uses crt;
const fi='baitap.txt';
fo='kq.qut';
var f1,f2:text;
a:array[1..100]of integer;
dem,i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eoln(f1) do
begin
inc(n);
read(f1,a[n]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 5=0 then dem:=dem+1;
writeln('So luong cac so chia het cho 5 la: ',dem);
for i:=1 to n do
if sqrt(a[i])=trunc(sqrt(a[i])) then write(f2,a[i]:4);
close(f1);
close(f2);
readln;
end.