Viết chương trình tính tổng sau: B=1+ 1/2+ 1/3+⋯+ 1/n

2 câu trả lời

     Program  bai3a;
Uses crt;
Var i, n: Integer; B: Real;
Begin
      Clrscr;
Write(‘Nhap so n =  ’);   Readln(n);
B:=0;
For i:= 1 to n do B:= B+ 1/i;
Writeln (‘Tong B can tim la:   ’, B:4:2);
Readln
   End.

program ntn;

uses crt;

var n,i:longint;

s:real;

begin

clrscr;

write('n=');readln(n);

s:=1;

for i:=1 to n do s:=s+1/i;

write(s);

readln;

end.

Câu hỏi trong lớp Xem thêm