HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
S từ đâu ra vậy ?
:v
Program Tong__nghich__dao;
Var
n,i:real;
S:Integer;
Begin
Write('Nhap n=');Readln(n);
S:=0;
For i:=1 to n do S:=S+1/i;
Write('Tong can tim la: ', S:6:2);
Readln;
End.