Question

Viết chương trình tìm x=1/n lớn nhất nhỏ hơn 0,001

Answer 1

uses crt;

var n:integer;

s:real;

begin

clrscr;

s:=1/1000;

n:=1 div s;

while s<=1/1000 do 

  begin

n:=n-1;

s:=1/n;

end;

writeln(n);

readln;

end.

Answer 2

KHÓ QUÁ BẠN ƠI MÌNH LỚP 12 MÀ CHỊU ĐÓ