Câu hỏi:

09/07/2020 713 Lưu

Cho đoạn chương trình sau:

Var g:text;

 I:integer;

Begin

 Assign(g, ‘C:\DLA.txt’);

 Rewrite(g);

 For i:=1 to 10 do

 If i mod 2 <> 0 then write(g, i);

 Close(g);

 Readln

End.

Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?

A. 2; 4; 6; 8;10

B. 1; 3; 5; 9

C. 1; 3; 5; 7; 9

D. 4; 6; 8; 10

Quảng cáo

Trả lời:

verified Giải bởi Vietjack

Đáp án đúng : C

CÂU HỎI HOT CÙNG CHỦ ĐỀ

Câu 1

A. Assign(f2, ‘KQ.TXT’);

B. f2 := ‘KQ.TXT’;

C. ‘KQ.TXT’ := f2;

D. Assign(‘KQ.TXT’, f2);

Lời giải

Đáp án đúng : A

Lời giải

Đáp án đúng : B

Câu 3

A. ‘ABC’

B. ‘BCD’

C. ‘CDE’

D. ‘DEF’

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 7

A. reset(f1);

B. rewrite(f1);

C. read(f1);

D. write(f1);

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP