lập trình tính tổng dùng lệnh lặp While...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) giúp mik đúng nha m.n

Question

ngochuong · Answer

Program Hotboy;

Uses crt;

Var i,n : integer;

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.

maianhnhi · Answer

uses crt;

var : i, n : integer;

a : real;

begin clrscr;

a:=0;

Writeln(‘Nhap so tu nhien n:’); readln(n);

While i <= n do

begin

a := a+1/i;

i:=i+1;

end;

writeln(‘Tong A =’, a);

readln

end.

lập trình tính tổng dùng lệnh lặp While…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) giúp mik đúng nha m.n