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
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
NL
Nguyễn Lê Phước Thịnh
CTVHS
20 tháng 4 2021
Đề 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.
NL
Nguyễn Lê Phước Thịnh
CTVHS
20 tháng 4 2021
Đề 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.
5 tháng 4 2023
a)
program Tinh_S;
var
n, S: integer;
i: integer;
begin
write('Nhap gia tri cua n (30 <= n <= 90): ');
readln(n);
S := 0;
if (n >= 30) and (n <= 90) then
begin
for i := 1 to n do
S := S + i;
writeln('Gia tri cua bieu thuc S la: ', S);
end
else
writeln('Gia tri cua n khong hop le!');
readln;
end.
b)
program Tim_n;
var
n, S: integer;
begin
for n := 30 to 90 do
begin
S := 0;
for i := 1 to n do
S := S + i;
if S > 1000 then
begin
writeln('Gia tri cua n la: ', n);
break;
end;
end;
readln;
end.
5 tháng 4 2023
a)program Tinh_S;
var n,s,i:longint;
begin
s := 0;
write('Nhap n (30 <= n <= 90): ');
readln(n);
for i := 1 to n do
begin
s := s + i;
end;
writeln('Tong S la: ', s);
end.
b) program Tim_N;
var n,s,i: longint;
begin
s := 0;
n := 1;
while s <= 1000 do
begin
s := s + n;
n := n + 1;
end;
writeln('Gia tri n can tim la: ', n-1);
end.
NL
Nguyễn Lê Phước Thịnh
CTVHS
11 tháng 7 2023
a: Khi m=1 thì pt sẽ là: x+x-3=6x-6
=>6x-6=2x-3
=>4x=3
=>x=3/4
b: m^2x+m(x-3)=6(x-1)
=>x(m^2+m-6)=-6+3m=3m-6
=>x(m+3)(m-2)=3(m-2)
Để (1) có nghiệm duy nhất thì (m+3)(m-2)<>0
=>m<>-3 và m<>2
=>x=3/(m+3)
\(A=\dfrac{\left(\dfrac{3}{m+3}\right)^2+\dfrac{6}{m+3}+3}{\left(\dfrac{3}{m+3}\right)^2+2}\)
\(=\dfrac{9+6m+18+3m^2+18m+27}{\left(m+3\right)^2}:\dfrac{9+2m^2+12m+18}{\left(m+3\right)^2}\)
\(=\dfrac{3m^2+24m+54}{2m^2+12m+27}>=\dfrac{1}{2}\)
Dấu = xảy ra khi 6m^2+48m+108=2m^2+12m+27
=>4m^2+36m+81=0
=>m=-9/2
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.