Question

1. Cho tệp DULIEU.PAS gồm nhiều dòng, mỗi dòng chứa 3 số nguyên A,B,C, cách số cách nhau 1 dấu cách. Viết chương trình đọc dữ liệu từ tệp DULIEU.PAS, tính trung bình cộng và ghi kết quả ra tệp KETQUA.PAS.

2. Cho tệp DULIEU.PAS chứa các số nguyên, các số cách nhau 1 dấu cách. Viết chương trình tìm các số chẵn và ghi kết quả ra tệp KETQUA.PAS.

Ai giải gấp hộ mình bài này với ạ!!!

Answer 1

Bài 1 bạn phải cho biết cụ thể bao nhiêu dòng mới tính được nhé bạn

Bài 2:

const fi='dulieu.pas';

fo='ketqua.pas';

var f1,f2:text;

a:array[1..100]of integer;

dem,i:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

dem:=0;

while not eoln(f1) do

begin

inc(dem);

read(f1,a[dem]);

end;

for i:=1 to dem do

if a[i] mod 2=0 then write(f2,a[i]:4);

close(f1);

close(f2);

end.

Answer 2

1.
uses crt;var f,f1:text; i,a,b,c:longint;begin clrscr; assign(f,'DULIEU.PAS'); assign(f1,'KETQUA.PAS'); reset(f); rewrite(f1); while not eof(f) do begin read(f,a); read(f,b); read(f,c); writeln(f1,(a+b+c)/3); end; close(f); close(f1);
end.2.
uses crt;var f,f1:text; i,a,tong:longint;begin clrscr; assign(f,'DULIEU.PAS'); assign(f1,'KETQUA.PAS'); reset(f); rewrite(f1); tong:=0; while not eof(f) do begin read(f,a); if a mod 2=0 then tong:=tong+a; end; write(f1,tong); close(f); close(f1);
end.