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.
KHÓ QUÁ BẠN ƠI MÌNH LỚP 12 MÀ CHỊU ĐÓ
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.
KHÓ QUÁ BẠN ƠI MÌNH LỚP 12 MÀ CHỊU ĐÓ
Viết chương trình tính số n nhỏ nhất để 1/n nhỏ hơn một sai số cho trước
Viết CT tìm n biết n là số lớn nhất sao cho s= 1/n nhỏ nhất và s>0,001
Viết chương trình nhập vào 1 mảng số thực gồm n phẩn tử (1<n<=50). Tìm phần tử lớn nhất, nhỏ nhất và in ra giá trị của nó trên màn hình
Tính giá trung bình của các phần tử có trong mảng
giúp vs
viết chương trình tìm số tự nhiên n lớn nhất để tổng 1+2+3+..n< 1000.<cần gấp SOS:((((>
Viết chương trình nhập dãy n số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và lớn nhất với n được nhập từ bàn phím
giúp mình cần gấp
Viết chương trình của tổng T nhỏ nhất lớn hơn 300
viết chương trình tính tổng các số tự nhiên nhỏ nhất lớn hơn 1000