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