C=1+1/2+1/3+…+1/n giúp mk với nhớ ghi rõ ràng hứa cho 5 sao

0 bình luận về “C=1+1/2+1/3+…+1/n giúp mk với nhớ ghi rõ ràng hứa cho 5 sao”

1. uses crt;
   var C:real; i,n:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      C:=0;
      for i:=1 to n do C:=C+1/i;
      write(‘C la: ‘,C:4:2);
      readln
   end.

   Bình luận

2. Program Hotboy ;

   Uses crt;

   Var s,i,n : longint;

   Begin

   Clrscr ;

   S:=0;

   Write(‘nhap so n tu ban phim ‘);

   Readln(n);

   For i:=1 to n do

    S:=S+1/i;

   Inc(i);

   Writeln(‘tong can tim la’,S);

   Readln

   End.

   Bình luận