Đề: S=1/2+1/3+...+1/n. Hãy viết cú pháp câu lệnh lặp của đề trên .

2 câu trả lời

Program tinh_tong;

Uses crt; 

Var i,n: integer;

       S: real;

Begin 

Write ('Nhap n=');

Readln (n);

S:=0;

For i:=2 to n do 

S:=S+ 1/i;

Writeln ('Tong S la:',S:7:4);

Readln

End.

Cú pháp: for <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Áp dụng: for i:=2 to n do S:=S+ 1/i;

Cú pháp : for(biến đếm):

= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Áp dụng: for i:=2 to n do S:=S+ 1/i;

Chúc bạn học tốt