Viết chương trình sử dụng while..do tính tổng sau:
A=1 + 1/2 + 1/3 +…+ 1/n
(1/2,.. là 1 phần 2 ấy ạ tại em ko bt ghi saoo)
Viết chương trình sử dụng while..do tính tổng sau: A=1 + 1/2 + 1/3 +…+ 1/n (1/2,.. là 1 phần 2 ấy ạ tại em ko bt ghi saoo)
By Maria
program tinhtong;
uses crt;
var a:real;
n,i:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
a:=0; i:=1;
while i<=n do
begin
a:=a+1/i;
i:=i+1;
end;
write(‘A= ‘,a:2:2);
readln
end.
var n, i: integer; A: real;
begin
write(‘Nhap so tu nhien n: ‘);
readln(n);
A:=0;
for i:=1 to n do
begin
A:=A+(1/i);
end;
write(‘Ket qua: ‘,A:0:2);
readln
end.