Bài 16: Ví dụ làm việc với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Dũng Hoàng

Hộ mình với cảm ơn nhiều. Viết chương trình để đọc dãy số nguyên. Hãy ghi vào tệp ketqua.txt các số là số chẵn

Nguyễn Lê Phước Thịnh
25 tháng 4 2020 lúc 21:16

const fi='dayso.txt';

fo='ketqua.txt';

var f1,f2:text;

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

n,i:integer;

begin

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

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

n:=0;

while not eoln(f1) do

begin

n:=n+1;

read(f1,a[n]);

end;

for i:=1 to n do

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

close(f1);

close(f2);

end.


Các câu hỏi tương tự
Phạm Đức Huy
Xem chi tiết
Thong Nay
Xem chi tiết
Linh
Xem chi tiết
Trung Kiên Lưu
Xem chi tiết
Tran Ngô
Xem chi tiết
Dương Hữu Thành
Xem chi tiết
Huỳnh Thái An
Xem chi tiết
Lê Đức Tài
Xem chi tiết
Minh
Xem chi tiết