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
Hoàng Long
Cho tệp Input. Txt chứa liên tiếp các số nguyên mỗi số cách nhau ít nhất một dấu phẩy viết chương trình đọc dãy số đó và đếm các số chia hết cho 3 ghi kết quả vào tệp Chiahet.txt
Nguyễn Lê Phước Thịnh
25 tháng 2 2021 lúc 21:49

const fi='input.txt'

fo='chiahet.txt'

var f1,f2:text;

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

i,n,dem:integer;

begin

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 3=0 then inc(dem);

writeln(f2,dem);

close(f1);

close(f2);

end.


Các câu hỏi tương tự
Vũ văn huy
Xem chi tiết
Nguyen Duc Anh
Xem chi tiết
duc tran
Xem chi tiết
Miner Đức
Xem chi tiết
An Hạ
Xem chi tiết
Trần Quốc Luân
Xem chi tiết
Haibanh
Xem chi tiết
Huy Nguyễn
Xem chi tiết
Haibanh
Xem chi tiết