Viết chương trình tìm số N nhỏ nhất để 1/N<0.0005
Những câu hỏi liên quan
Viết chương trình tìm n nhỏ nhất để tổng các số từ 1 đến n lớn hơn 1000 ( sử dụng while)
Var i,s:integer;
Begin
i:=0;
While s<=1000 do
Begin
i:=i+1;
s:=s+i;
End;
Write('n nho nhat la ',i);
Readln;
End.
Đúng 0
Bình luận (0)
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
uses crt;
var n:int64;
begin
clrscr;
n:=maxint;
while 1/n>=0.0005 do
begin
n:=n-1;
end;
writeln(n);
readln;
end.
Đúng 4
Bình luận (0)
viết chương trình sử dụng while do để tìm in ra n(n là số tự nhiên) s=1,2,3....n n là số lớn nhất và nhỏ hơn 50
tham khảo
Program HOC24;
var n: byte;
begin
n:=0;
while n<50-1 do n:=n+1;
write('N=',N);
readln
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Viết chương trình pascal tìm phần tử nhỏ nhất trong 1 dãy số nguyên có n số (n
var a:array [1..100] of integer;
i,n,x : byte;
min:integer;
begin
write('Dãy có số phần tử là : '); readln(N);
for i:=1 to n do begin
write('A[',i,'] = ');
readln(A[i]);
end;
Min : = A[1];
for i:=2 to n do if A[i] < min then begin
min:= A[i];
x:=i;
end;
write('Phần tử bé nhất trong dãy là : A[',x,']');
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình tìm số N nhỏ nhất thỏa mãn biểu thức sau 1*2*3*...*N>120
Var i,p:integer;
Begin
i:=0;
p:=1;
While p<=120 do
Begin
i:=i+1;
p:=p*i;
End;
Write('So can tim la ',i);
Readln;
End.
Đúng 0
Bình luận (0)
Đề 1: Viết chương trình nhập dãy số n từ bàn phím. Sau đó, tìm và hiển thị số nhỏ nhất lên màn hình. Đề 2: Tự luận: Viết chương trình nhập dãy số n từ bàn phím. Sau đó, tìm và hiển thị số lớn nhất lên màn hình.
Đề 1:
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 1
Bình luận (0)
Đề 2:
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
Đúng 1
Bình luận (0)
Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của mảng một chiều chứa n số nguyên nhập từ bàn phím. Giúp em với mọi người ❤️
uses crt;
var a:array[1..100]of integer;
min,n,i:integer;
{----------------chuong-trinh-con-------------------}
function nn(x,y:integer):integer;
begin
if x<y then nn:=x
else nn:=y;
end;
{-----------------chuong-trinh-chinh-----------------}
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=nn(a[1],a[2]);
for i:=3 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 1 dãy số nguyên a gồm n phần tử(0<n<100),viết chương trình xử lý các câu sau:
a) Tìm và in ra màn hình số lớn nhất,bé nhỏ của dãy a và vị trí của các số đó
#include <bits/stdc++.h>
using namespace std;
long long a[100],n,i,ln,nn,vt1,vt2;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
ln=a[1];
nn=a[1];
for (i=1; i<=n; i++)
{
ln=max(ln,a[i]);
nn=min(nn,a[i]);
}
cout<<ln<<" "<<nn;
return 0;
}
Đúng 0
Bình luận (0)
Var n,i,vtl,vtn,so max,min:integer;
Begin
Write('Nhap so luong so = ');readln(n);
vtl:=0;
vtn:=0;
max:=-32768;
min:=32767;
For i:=1 to n do
Begin
Write('Nhap vao so thu ',i);readln(so);
If so > max then
Begin
Max:=so;
vtl:=i;
End;
If so < min then
Begin
Min:=so;
vtn:=i;
End;
Writeln('So lon nhat la ',max,' tai vi tri thu ',i);
Write('So nho nhat la ',min,' tai vi tri thu ',i);
Readln;
End.
Đúng 0
Bình luận (0)
1) Viết chương trình nhập vào số tự nhiênn có m chữ số(0<m<10) tìm số nhỏ nhất và lớn nhất.
2) Nhập vào số thực A, tìm số tự nhiên N nhỏ nhất sao cho S=1+1/2+1/3+1/4+...+1/N. Xin cảm ơn.
viết chương trình nhập vào 1 dãy gồm n số (n được nhập từ bàn phím).Tìm giá trị nhỏ nhất trong dãy vừa nhập