Bài 15: Thao tác với tệp

Nguyễn thị Phụng

Viết chương trình đọc từ tệp dữ liệu .TxT hai 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ả vào tệp "Kết quả.TxT "

HELP ME !!!N mình đang cần gấp

Nguyễn Lê Phước Thịnh
17 tháng 6 2020 lúc 12:30

const fi='dulieu.txt';

fo='ketqua.txt';

var f1,f2:text;

m,n,t,i:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,m,n);

t:=0;

for i:=m to n do

if i mod 3=0 then t:=t+i;

writeln(f2,t);

close(f1);

close(f2);

end.

Bình luận (0)

Các câu hỏi tương tự
Huy Đan
Xem chi tiết
An Đinh
Xem chi tiết
Mĩ Lâm
Xem chi tiết
Fax Cơ
Xem chi tiết
33. PHAN THỊ HỒNG THẮM 1...
Xem chi tiết
Thương Thương
Xem chi tiết
Felix MC-Gamer
Xem chi tiết
A3-37-Bùi Ngọc Phương Tr...
Xem chi tiết
Hoài Ân 02 Lê Huỳnh
Xem chi tiết