Viết chương trình đọc dữ liệu từ một tệp tính tổng các số chẵn có trong tệp, xuất kết quả ra màn hình.
2 câu trả lời
var t: longint;
a: integer;
f: text;
Begin
Assign(f, 'input.inp'); reset(f); t:=0;
While not eol(f) do
Begin
While eoln(f) do readln(f);
Read(f, a);
If a mod 2=0 then t:=t+a;
End;
Write(a);
Readln
End.
program tong_so_chan;
uses crt;
var f:text;
n,t:integer;
begin
clrscr;
Assign(f,'TEP.txt'); reset(f);
t:=0;
while not eof(f) do
begin
read(f,n);
if n mod 2=0 then t:=t+n;
end;
write('Tong cac so chan trong tep la: ',t);
close(f); readln;
end.
