Hãy sửa lỗi đoạn chuơng trình trên và viết chuơng trình tính tích các số:P=1/1*1/2*1/3*…*1/n
2 câu trả lời
program BTH;
uses crt;
var i, n : integer;
S : real;
begin
clrscr;
writeln('Nhap n: '); readln(n);
S:=0; i:=1;
while i<=n do begin
S:=S+1/i; i:=i+1;
end;
writeln('Tong day so tren la: ',S:2:3);
readln
end.
var n,i:longint;
p:real;
begin
p:=1;
write('Nhap n: '); readln(n);
for i:=1 to n do
p:=p*1/i;
write('P = ',p:0:4);
readln
end.