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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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.

   Bình luận