Tìm n để n! Lớn nhất nhỏ hơn 1000 lập chương trình pascal
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
IS
0
KV
29 tháng 4 2022
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.
23 tháng 6 2020
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,max,min: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];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
readln;
end.
Bài 2:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln('Tong cua ',n,' so tu nhien dau tien la: ',s);
readln;
end.
Bài 3:
uses crt;
var n,t:integer;
begin
clrscr;
n:=0; t:=0;
while t<=1000 do
begin
inc(n);
t:=t+n;
end;
writeln('Tong cua n so tu nhieu dau tien sao cho tong nho nhat lon hon 1000 la: ',t);
writeln('So lan n nang len la: ',n);
readln;
end.
Bài 4:
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a<b then writeln(a,' ',b);
if a=b then writeln('hai so bang nhau');
if b<a then writeln(b,' ',a);
readln;
end.
Bài 5:
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('Gia tri nho nhat la: ',min);
readln;
end.
18 tháng 3 2022
uses crt;
var n,i,s:integer;
begin
clrscr;
n:=1;
s:=0;
repeat
s:=s+n;
n:=n+1;
until s>1000;
writeln(n);
readln;
end.
TN
1
25 tháng 3 2022
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.
KV
23 tháng 2 2023
Var s,i:integer;
Begin
s:=0;
i:=0;
While S<1000 do
Begin
i:=i+1;
s:=s+i;
End;
Write('n la ',i);
Readln;
End.
26 tháng 5 2021
program max_min;
uses crt;
var i,n,max,min:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
writeln('day vua nhap la:');
for i:=1 to n do
write(a[i]:3);
writeln;
max:=a[1];min:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('gia tri lon nhat: ',max,' gia tri nho nhat: ',min);
readln;
end.
7 tháng 6 2021
uses crt;
var a:array[1..1000000] of longint;
n,i,max,min:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap: ');
for i:=1 to n do write(a[i],' '); writeln;
max:=a[1];min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('GTLN: ',max);
writeln('GTNN: ',min);
readln;
end.
in ra số lớn nhất thì mình nghĩ có cách này :/
program abc;
uses crt;
var a,b,c,dmax : integer;
begin
clrscr;
write ( ' nhap a =' );
readln (a);
write ( ' nhap b = ');
readln (b);
write ( ' nhap c =' );
readln (c);
write ( ' nhap d = ' );
readln (d);
a:=max;
if max<b then max:=b;
if max<c then max :=c;
if max<d then max :=d;
write ( ' so lon nhat la',max);
readln;
end.
( mình không chắc nha :I )