Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Cảnh Hùng

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”.

Đỗ Ngọc Trinh
11 tháng 12 2018 lúc 4:12

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ác câu hỏi tương tự
Nông trang
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Thị Cúc Nguyễn
Xem chi tiết
Minh Uzumaki
Xem chi tiết
Vũ Kiệt
Xem chi tiết
Nguyen
Xem chi tiết
Phương Hoài
Xem chi tiết