Câu hỏi:

19/08/2025 11,737 Lưu

Viết chương trình:

Đọc từ tệp “DULIEU.TXT” 2 số nguyên M và N (M < N)

Tính tổng các số chẵn trong phạm vi từ M đến N

Ghi kết quả ra tệp “KETQUA.TXT”.

Quảng cáo

Trả lời:

verified Giải bởi Vietjack

Var f1, f2: text;

  Tong, m, n, i: integer;

Begin

  assign(f1, ‘DULIEU.TXT’);

  reset(f1);

  assign(f2, ‘KETQUA’);

  rewrite(f2);

  Tong;= 0;

  read(f1, m, n);

  for i:= m to n do

  if i mod 2 = 0 then Tong:= Tong+i;

  write(f2, Tong);

  close(f1);

  close(f2);

End.

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

Câu 1

A. Var f1. f2 : Text;

B. Var f1 ; f2 : Text;

C. Var f1 , f2 : Text;

D. Var f1 : f2 : Text;

Lời giải

Đáp án đúng : C

Câu 2

A. eof(f)

B. eoln(f)

C. Cả A, B đều đúng

D. Cả A, B đều sai

Lời giải

Đáp án đúng : B

Câu 3

A. Biến cục bộ

B. Biến toàn cục

C. Tham số thực sự

D. Tham số hình thức

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 4

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

Câu 5

A. f2 := ‘KQ.TXT’;

B. ‘KQ.TXT’ := f2;

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

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

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 6

A. Procedure Hoan_doi (y : integer; Var x : integer);

B. Procedure Hoan_doi (x : integer; Var y : integer);

C. Procedure Hoan_doi (Var x, y : integer);

D. Procedure Hoan_doi (x, y : integer);

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