lập trình tính tổng dùng lệnh lặp While...Do và for...do trong đó có n là số tự nhiên được nhập từ bàn phím A=1+1/2+1/3+...+1/n(n thuộc Z)

Question

dantam · Answer

Program Hotboy;

Uses crt;

var i,n : longint;

s:real;

begin

Clrscr;

s:=0;

Write(‘nhap so n’); Readln(n);

While i<= n do

begin

S:=S+1/i; inc(i);

end;

Write(‘tong day do la:’,S);

Readln

End.

hiennhi · Answer

program oken;
uses crt;
var n,i:longint;

a:real
begin
clrscr;
write(‘nhap so N: ‘); readln(n);
a:=+1;
for i:=1 to n do
a:=a+(1/i);
writeln(‘Tong phan so A=’,a:0:3);
readln;
end.

lập trình tính tổng dùng lệnh lặp While…Do và for…do trong đó có n là số tự nhiên được nhập từ bàn phím A=1+1/2+1/3+…+1/n(n thuộc Z)