Tìm n để n! lớn nhất nhỏ hơn 1000
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
BV
1
29 tháng 3 2018
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 )
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.
28 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
string n;
int main()
{
cin>>n;
d=n.length();
ln=48;
nn=57;
for (i=0; i<=d-1; i++)
{
ln=max(ln,int(n[i]));
nn=min(nn,int(n[i]));
}
cout<<char(ln)<<" "<<char(nn);
return 0;
}
31 tháng 3 2022
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
i:=0;
repeat
i:=i+1;
s:=s+i;
until s>1000;
writeln(s);
if (s>1500) then writeln('co')
else writeln('khong');
readln;
end.
21 tháng 3 2023
program TongSn;
var
N, S: integer;
begin
S := 0;
N := 1;
while S <= 1000 do
begin
S := S + N;
N := N + 1;
end;
writeln('So tu nhien can cong de tong Sn vuot qua 1000 la: ', N-1);
writeln('Tong S', N-1, ' la: ', S);
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.
HT
2
HD
24 tháng 3 2019
-------------------
Program Tinh_Tong;
Var i:Word;
S:Longint;
Begin
S:=0;
For i:=1 to 1000 do S:=S+i;
Write('Tong S=',S);
Readln;
End.
---------------------
31 tháng 3 2019
Program Tinh_Tong;
Var i:Word;
S:Longint;
Begin
S:=0;
For i:=1 to 1000 do S:=S+i;
Write('Tong S=',S);
Readln;
End.
Các bạn giải giùm mik mik cho cần gấp môn tin trong pascal nha
6! = 720
7! = 5040
=> số n cần tìm là 6