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ố chia hết cho 3 trong phạm vi từ M đến N

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

Đỗ Ngọc Trinh
7 tháng 4 2019 lúc 15:31

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ự
Nguyễn Cảnh Hùng
Xem chi tiế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
Thị Cúc Nguyễn
Xem chi tiết
Minh Uzumaki
Xem chi tiết
Vũ Kiệt
Xem chi tiết
‎‎‎            ‎
Xem chi tiết
Nguyễn Bình Thiên
Xem chi tiết