Tin học 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. 18/07/2021 By aikhanh 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.
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. 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. Trả lời