Tin học câu lệnh For ... do

[Play with me]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

[tex]\S1= 1*\frac{1}{3}*\frac{1}{5}*...*\frac{1}{99} S2= 1+\frac{1}{4}+\frac{1}{9}+...+\frac{1}{100} S3=\frac{1}{2}+\frac{2}{3}+\frac{3}{4}+...+\frac{99}{100}[/tex]
Giúp mình viết câu lệnh lặp của 3 biểu thức này với biến đếm là i nhé

 

[namnam06]

bạn tự khai báo biến nha, mình chỉ viết lệnh mẫu thôi
S1 := 0 ; S2 := 0 ; S3 := 0 ;
For i := 1 to 50 do S1 := S1 + 1/i ;
For i := 1 to 10 do S2 := S2 + 1/(i[tex]\ast[/tex]i) ;
For i := 1 to 99 do S3 := S3 +i/(i+1) ;
Đại loại thì như trên.