*Chương trình như đề yêu cầu sai, do nếu s:=s*i thì phải là tích. Mặt khác, nếu s:=0; for i:=2 to 4 do s:=s*i thì tích này = 0; Sửa lại: Uses Crt; Var s,i:integer; Begin S:=0; For i:=2 to 4 do s:=s+i; Write('Tong s= ',s); Readln End. *Nhớ tick và chọn làm câu tr/loi hay nhất giúp mình nhé! Thanks :D *p/s: Hỏi và đáp, comment bên dưới!
