Viết chương trình Cho tệp 'DULIEU.TXT' chứa 2 số nguyên x, y cách nhau bởi 1 dấu cách, hãy đọc x,y từ tệp 'DULIEU.TXT', tính tổng các số chẵn trong phạm vi từ x đến ykết quả ghi vào tệp 'OUT.TXT'

DuyenNguyen

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 17 xem

1 trả lời

Thích Trả lời

huy1234

uses crt;
var x,y,i,t:integer;
fi,fo:text;
begin
clrscr;
assign(fi,'DULIEU.TXT');reset(fi);
assign(fo,'OUT.TXT');rewrite(fo);
read(fi,x);read(fi,y);
for i:=x to y do
if i mod 2 = 0 then t:=t+i;
write(fo,t);
close(fi);close(fo);
readln
end.

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

huyendieu1980

program bai_giai;
var f,g:text;
x,y,i,t:longint;
begin
Assign(f,'DULIEU.TXT'); reset(f);
Assign(g,'OUT.TXT'); rewrite(g);
readln(f,x,y);
t:=0;
for i:=x to y do 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

/tìm số nghịch đảo của các số sau 3/7, 6 1/3 -1/12 0,31

S:=0; For i:=2 to 50 do S:=s + i/2; Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do giúp mình với

Giúp mình ạ. 🥰🥰 Mình cảm ơn. Mình bị trầm cảm

mẹ hơn con 27 tuổi . hiện nay con bằng 2/5 tuổi mẹ . hỏi hiện nay mẹ bao nhiêu tuổi

Write about what would you like to be in the future

Làm giúp mình nhanh với cần gấp hứa 5* và ctlhn

1/Tìm 1 số tự nhiên có 2 chữ số ,biết chữ số hàng đơn vị là số nguyên tố nhỏ nhất .Nếu đổi chỗ 2 chữ số cho nhau thì ta đc số mới nhỏ hơn số ban đầu 27 đơn vị 2/Cho ΔABC vuông tại A,đường cao AH.Tia phân giác của góc ABC cắt AH tại E và cắt AC tại F.Chứng minh a/ ΔABF đồng dạng ΔHBE b/EH.FC=AE.AF

Viết 1 đoạn văn về lối sống giản dị?

Văn hóa và kinh tế của người Việt thời xưa

tìm nghiệm của M(x)=2-x^2 ai lm đúng và nhanh nhất mk tick nha

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