cách 1: While do
Program Hotboy ;
Uses crt;
Var i,s : longint;
Begin
S:=1;
Write('nhap n'); readln(n);
While i <= n do
i:= i+1 ; S:= S*i;
End;
Writeln('tich tu 1 den n la',s);
Readln
End.
Cách 2: For to do
For i:=1 to n do
S:=S*i;
program ct;
uses crt;
var n,i,s:integer;
begin
clrscr;
write('nhap n:=');readln(n);
s:=1;
for i:=1 to n do s:=s*i;
writeln('tich la',s);
readln
end.
var s,i,n:integer;
s:=1; i:=1;
while i<=1 do
s:=s*i;
i:=i+1;
end;
readln;
Giúp em với ạ em HK biết làm em cho 5 sao ln
Vẽ hai góc kề nhau BOD và BOC sao cho BOD =90° BOC=70°. Vẽ tia OA nằm trong BOD sao cho BOA =20°. Kể tên các cặp góc phụ nhau trên hình
Cho tam giác ABC có AB<AC, AD là phân giác. Trên AC lấy điểm E sao cho AE=AB. Cm: a. tam giác ABD = tam giác AED b. Trên tia AB lấy F sao cho AF=AC. Chứng minh: góc FBD= góc CED. c. AD ⊥ CF d. DF = DC e. So sánh DB và DC Hứa 5 sao + ctlhn ạ!
Cho tam giác ABC vuông tại A, kẻ phân giác BD của B (D thuộc AC), kẻ AH vuông góc BD (H thuộc BD), AH cắt BC tại E. a) Chứng minh: tam giác BHA = tam giác BHE. b) Chứng minh: ED vuông góc BC. c) Chứng minh: AD < DC. d) Kẻ AK vuông góc BC (K thuộc BC). Chứng minh: AE là phân giác của CÂK. Giải bài này giúp mình với đang gấp
Khi nung nóng Kclo3 chất này bị phân huỷ sinh ra Kcl và O2.Tính khối lượng KClO3 bt để sinh ra lg O2 =6.72l
Cho hàm số $y=\frac{ax+b}{x-1}$ có đồ thị cắt trục tung tại A(0;-1), tiếp tuyến tại A có hệ số góc k=-3. Các giá trị của a,b??
Vẽ góc bẹt xOy, vẽ tia Ot sao cho yOt = 60 độ a, tính xOt b, Vẽ tia phân giác Om của yOt On của tOx Hỏi mOt và tOn có kề bù hau không ? có phụ nhau không? giải thích
Tìm nghiệm của đa thức f(x) = 2.x^2 - x
cho t/giác ABC cân gọi Bx là t/giác ngoài cạnh điểm B, gọi Cy là t/giác ngoài tại điểm C. Hai tia p/giác này cắt nhau tại O. Cm: AO là tia phân giác trong của góc A.
Cho P(x)=x^9-55x^8+55x^7-...+55x+1. Tính P(54)
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
