Đề: 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