Tệp và thao tác với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Thanh Trọng

cho tệp dulieu.inp gồm các số nguyên mỗi số trên 1 dòng . Đếm các số chẵn. Ghi kết quả ra tệp dulieu.out

Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 23:30

const fi='dulieu.inp'

fo='dulieu.out'

var f1,f2:text;

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

n,i,dem:integer;

begin

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

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

n:=0;

while not eof(f1) do 

 begin

n:=n+1;

readln(f1,a[n]);

end;

dem:=0;

for i:=1 to n do

if a[i] mod 2=0 then inc(dem);

writeln(f2,dem);

close(f1);

close(f2);

end.


Các câu hỏi tương tự
Miner Đức
Xem chi tiết
Hoàng Long
Xem chi tiết
duc tran
Xem chi tiết
Kiên Ngọc
Xem chi tiết
An Hạ
Xem chi tiết
Huy Nguyễn
Xem chi tiết
Đặng Thị Thúy Hiền
Xem chi tiết
Alpha Phương Hoa
Xem chi tiết
Haibanh
Xem chi tiết