Question

Viết chương trình tính 1+1/2+1/3+1/t với t là một số nguyên bất kì được nhập vào từ bàn phím bằng cách sử dụng vòng lặp for...do hoặc vòng lặp while...do

Answer 1

Sử dụng For...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0;

For t:=1 to n do s:=s+1/t;

writeln('Tổng s là',s);

readln

end.

Sử dụng While...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0; t:=1;

While t <= n do

begin t:=t+1;

s:=s+1/t end ;

writeln('Tổng s là',s);

readln

end.