USES crt;
VAR x: REAL;
n: INTEGER;
CONST sai_so=0.003;
BEGIN
clrscr;
x:=1; n:= 1;
WHILE x>= sai_so DO BEGIN n:=n +1; x:= 1/n END;
writeln('so n nho nhat de 1/n < ', sai_so :6:4,'la ',n);
readln
END.
Download: http://www.mediafire.com/?3oxi7g60qynvh49
VAR x: REAL;
n: INTEGER;
CONST sai_so=0.003;
BEGIN
clrscr;
x:=1; n:= 1;
WHILE x>= sai_so DO BEGIN n:=n +1; x:= 1/n END;
writeln('so n nho nhat de 1/n < ', sai_so :6:4,'la ',n);
readln
END.
Download: http://www.mediafire.com/?3oxi7g60qynvh49
