a) em hãy viết và gõ chương trình tính tổng sau bằng cách sử dụng lệnh While…do trong ngôn ngữ pascal với n là số nguyên dương được nhập vào bàn phím:
S=1/1+1/2+1/3+…+1/n
a) em hãy viết và gõ chương trình tính tổng sau bằng cách sử dụng lệnh While…do trong ngôn ngữ pascal với n là số nguyên dương được nhập vào bàn phím:
S=1/1+1/2+1/3+…+1/n
var s: real;
n, i: word;
begin
write(‘n = ‘); readln(n);
i:=0;
while i<=n do
begin
s:=s+1/i;
inc(i);
end;
write(s);
readln
end.
program tinh_tong;
uses crt;
var n,i,s:integer;
begin
write(‘Nhap n: ‘);readln(n);
i:=1;
while i<=n do begin
s:=s+1/i;
i:=i+1;
end;
writeln(‘Tong=’,s);
readln
end.