Viết chương trình tính S=1+1/2+1/3+1/4+...+1/n với n nhập từ bàn phím
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:= 1 to n do
S:= S+ 1/i;
Writeln ('Tong S la:',S:5:2);
Readln
End.
uses crt;
var S:real; i,n:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do s:=s+1/i;
write('S=',S:4:2);
readln
end.