Tìm n để n! Lớn nhất nhỏ hơn 1000 lập chương trình pascal
BS
Những câu hỏi liên quan
Lập chương trình nhập vào số nguyên dương N và xuất ra số fibonacci lớn nhất nhỏ hơn N.(Pascal)
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)
câu 1viết chương trình tính tổng của các số lẻ nhỏ hơn N với N được nhâp từ bàn phím
câu 2 viết chương trình in ra màn hình n*
câu 3 viết chương trình tính tổng của N số sao cho tổng đó lớn nhất nhỏ hơn 1000
giúp mình đi mai mk thi rồi
Mấy bạn ơi hãy giúp mìk với
1.Sử dụng biến mảng viết chương trình Pascal nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất và nhỏ nhất .
2.Viết chương trình Pascal tính tổng của N số tự nhiên đầu tiên với N số tự nhiên được nhập từ bàn phím .
3.Viết chương trình Pascal nhập N số tự nhiên , in ra màn hình số nhỏ nhất để tổng đầu tiên lớn hơn 1000 .
4.Viết chương trình Pascal nhập vào 2 số nguyên , in ra màn hình kết quả sắp xếp 2 số nguyên vừa nhập theo thứ tự tăng dần .
5.Sử dụng...
Đọc tiếp
Mấy bạn ơi hãy giúp mìk với
1.Sử dụng biến mảng viết chương trình Pascal nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất và nhỏ nhất .
2.Viết chương trình Pascal tính tổng của N số tự nhiên đầu tiên với N số tự nhiên được nhập từ bàn phím .
3.Viết chương trình Pascal nhập N số tự nhiên , in ra màn hình số nhỏ nhất để tổng đầu tiên lớn hơn 1000 .
4.Viết chương trình Pascal nhập vào 2 số nguyên , in ra màn hình kết quả sắp xếp 2 số nguyên vừa nhập theo thứ tự tăng dần .
5.Sử dụng biến mảng viết chương trình Pascal nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất.
Giải nhanh giùm e nha .
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.
Đúng 0
Bình luận (0)
em hãy viết chương trình tìm số n sao cho tổng các số từ 1 đến n nhỏ nhất và lớn hơn 1000 (biết số nguyên n được nhập từ bàn phím)
giúp mình với mai mình thi rồi ạaaaa
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.
Đúng 1
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ố tự nhiên n lớn nhất để tổng 1+2+3+..n< 1000.<cần gấp SOS:((((>
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.
Đúng 2
Bình luận (1)
Viết chương trình Pascal thực hiện các yêu cầu sau:
- Nhập vào một dãy số gồm N số nguyên
- Hiển thị dãy số vừa nhập
- Tìm giá trị lớn nhất, nhỏ nhất trong dãy số trên
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.
Đúng 1
Bình luận (0)
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.
Đúng 0
Bình luận (0)