Const Fi='DULIEU.INP'; Fo='KETQUA.INP';Var f,g: text; m,n,i,s: longint;Begin Assign(f,Fi); Reset(f); Assign(g,Fo); Rewrite(g); Read(f,m,n); s:=0; For i:=m to n do If i mod 3 = 0 then s:=s+i; Write(g,s); Close(f); Close(g);End.
Câu 2 :
uses crt;
var f1, f2 : text; M, N, S, i : integer;
begin
clrscr;
assign(f1, 'DULIEU.TXT'); reset(f1);
assign(f2, 'KETQUA.TXT'); rewrite(f2);
read(f1, M, N); S := 0;
for i := M to N do
if i mod 3 = 0 then S := S + i;
write(f2, S);
close(f1); close(f2);
readln
end.
Nêu vd cho tín ngưỡng, tôn giáo? ( bn nào chưa phân biệt đc tín ngưỡng tôn giáo thì đừng vào làm nhé!) mk cần khoảng 2 cái, vd cái của mk nè: tín ngưỡng: xem bói toán, chiêm văn tôn giáo: đạo phật
helpppppppppppppppppppppppppppppppppppppppppppppppppppp
Vẽ một bức tranh về đề tài: Mùa hè của em theo khổ 20x25
Giúp mình với, mình sắp phải nộp rồi (giải thích giúp mình nhé?)
cho tam giác abc cân tại a đường trung tuyến ah biết ab=ac=13cm:bh=5cm. tính độ dài ah mik cảm ơn trước
. kể tên ba chiến dịch tiêu biểu trong cuộc kháng chiến chống thực dân Pháp từ năm 1946 đến năm 1954.Trong ba chiến dịch đó, chiến dịch nào có ý nghĩa quyết định thắng lợi của cuộc kháng chiến chống thực dân Pháp xâm lược (1945-1954)?
phân biệt từ đồng âm và nhiều nghĩa : mùa xuân_xuân sắc : giàu sang_sang sông : mắt cá chân_đôi mắt : đường đi_đường ăn : đôi chân_chân sút : cửa nhà_cửa phòng :
Tìm m để phương trình x^2-2(m-1)+x+2m=0 có hai nghiệm x1,x2 thoả mãn √x1+√x2=√2
Mn xem chỗ nào sai thì sửa giúp mik nha! Ko spam nha.
Nêu ưu điểm của sản xuất inteferon
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
