Viết chương trình đọc từ tệp"DULIEU.INP" 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 "KẾT QUẢ.OUT"

nnthang712

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 59 xem

1 trả lời

Thích Trả lời

nguyennguyen17032001

uses crt;
var f:text;
n,m,i:word;
sum:longint;
begin
assign(f,'DULIEU.INP');reset(f);
read(f,m,n);
close(f);
assign(f,'KETQUA.OUT');rewrite(f);
for i:=m to n do
if i mod 2=0 then inc(sum,i);
write(f,sum);
close(f);
end.

Vote (0) Phản hồi (0) 2 năm trước

daothuhabbhs2002

program bai_giai;
var f,g:text;
M,N,i,t:longint;
begin
Assign(f,'DULIEU.INP'); reset(f);
Assign(g,'KETQUA.OUT'); rewrite(g);
readln(f,m,n);
t:=0;
for i:=m to n do
if i mod 2=0 then t:=t+i;
write(g,t);
close(f); close(g);
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

a/ ấm đồng và ấm nhôm ấm nào sôi nhanh hơn? vì sao? b/ sau khi đun sôi, ta tắt lửa thì ấm nào nguội nhanh hơn?

1 đàn vịt có 56 con . Mẹ bán đi `1/7` số vịt đó . Hỏi còn lại bao nhiêu con

viết bài tiếng anh về bài Dreams house lớp 6

vẽ sơ đồ lắp đặt mạch điện gồm: + 1 cầu chì + 1 ổ cắm điện + 1 công tắc điều khiển bóng đèn 2, biện pháp để tích kiệm điện? vì sao phải tích kiệm điện? 3, nguyên lí làm việc của đồ dùng loại điện nhiệt

Biểu hiện nào dưới đây không phải là nghĩa vụ của cá nhân ? A. Chim mẹ tha mồi về tổ cho chim con B. Công dân tích cực tham gia xây dựng đất nước C. Nam thanh niên đủ tuổi phải tham gia nghĩa vụ quân sự D. Cha mẹ có trách nhiệm nuôi dưỡng con cái

Ý nghĩa của vây đuôi cá voinằm ngang,cổ không biệt với thân,có lớp mỡ dưới da dày,chi trước biến đổi thành vây dạng chèo(trả lời theo ý)

Mọi người giúp mình giải hết lun nha

dựa vào bài 'bàn luận phép học' vết 1 đoạn văn nói về mục đích học tập trong đó có sử dụng 2 kiểu câu em đã học

Câu 3 câu 4 nhé cứu mình huhuhu

Giải thích đặc điểm thích nghi của động vật đối với các môi trường đặc biệt và môi trường nhiệt đới gió mùa. Nêu biện pháp để duy trì đa dạng sinh học.

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến