Viết chương trình nhập số thực a và tìm ra số tự nhiên n nhỏ nhất sao cho: 1 + 1/2 + 1/3 +…..+ 1/n > a
Viết chương trình nhập số thực a và tìm ra số tự nhiên n nhỏ nhất sao cho: 1 + 1/2 + 1/3 +-.+ 1/n > a
By Bella
By Bella
Viết chương trình nhập số thực a và tìm ra số tự nhiên n nhỏ nhất sao cho: 1 + 1/2 + 1/3 +…..+ 1/n > a
uses crt;
var a,s: real;
i: integer;
begin
clrscr;
write (‘nhap a: ‘); readln (a);
for i:=1 to n do s:=s+(1/i);
writeln (‘tong la: ‘,s:1:2);
readln;
end.
program tong;
uses crt;
var n:integer;
a:real;
begin
clrscr;
write(‘Nhap a: ‘); readln(a);
n:=0; t:=0;
while t<=a do
begin
n:=n+1;
t:=t+1/n;
end;
write(‘So nho nhat thoa man la: ‘,t);
readln
end.