NH

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 5 trong phạm vi từ M đến N

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

DT
31 tháng 8 2018 lúc 16:53

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.

Bình luận (0)

Các câu hỏi tương tự
NH
Xem chi tiết
NT
Xem chi tiết
NH
Xem chi tiết
NH
Xem chi tiết
TN
Xem chi tiết
MU
Xem chi tiết
VK
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết