free pascal四位数排列 任给出4个非0的不同数字,求出由这4个数字组成的所有的4位数.
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/07/13 23:33:36
free pascal四位数排列 任给出4个非0的不同数字,求出由这4个数字组成的所有的4位数.
![free pascal四位数排列 任给出4个非0的不同数字,求出由这4个数字组成的所有的4位数.](/uploads/image/z/857022-6-2.jpg?t=free+pascal%E5%9B%9B%E4%BD%8D%E6%95%B0%E6%8E%92%E5%88%97+%E4%BB%BB%E7%BB%99%E5%87%BA4%E4%B8%AA%E9%9D%9E0%E7%9A%84%E4%B8%8D%E5%90%8C%E6%95%B0%E5%AD%97%2C%E6%B1%82%E5%87%BA%E7%94%B1%E8%BF%994%E4%B8%AA%E6%95%B0%E5%AD%97%E7%BB%84%E6%88%90%E7%9A%84%E6%89%80%E6%9C%89%E7%9A%844%E4%BD%8D%E6%95%B0.)
var
i,j,o,w,t:longint;
a,b:array[1..4]of integer;
function check:boolean;
begin
check:=false;
if (ij)and(io)and(iw)and(jo)and(jw)and(ow) then check:=true;
end;
begin
for i:=1 to 4 do
read(a[i]);
for i:=1 to 3 do
for j:=i+1 to 4 do
if a[i]>a[j] then begin t:=a[i];a[i]:=a[j];a[j]:=t;end;
for i:=1 to 4 do
for j:=1 to 4 do
for o:=1 to 4 do
for w:=1 to 4 do
if check then writeln(a[i],a[j],a[o],a[w]);
end.
i,j,o,w,t:longint;
a,b:array[1..4]of integer;
function check:boolean;
begin
check:=false;
if (ij)and(io)and(iw)and(jo)and(jw)and(ow) then check:=true;
end;
begin
for i:=1 to 4 do
read(a[i]);
for i:=1 to 3 do
for j:=i+1 to 4 do
if a[i]>a[j] then begin t:=a[i];a[i]:=a[j];a[j]:=t;end;
for i:=1 to 4 do
for j:=1 to 4 do
for o:=1 to 4 do
for w:=1 to 4 do
if check then writeln(a[i],a[j],a[o],a[w]);
end.
free pascal四位数排列 任给出4个非0的不同数字,求出由这4个数字组成的所有的4位数.
free pascal 程序:打印由1,2,3,4四个数字组成的所有四位数,并统计个数.
由四个不同的非0数字组成的所有四位数中,数字和等于12的共有多少个?
用1,4,5,x(x是与1,4,5不同的非零数字)这4个数字组成没有重复数字的四位数.
用0,1,2,3,4这5个数字组成许多没有重复的四位数,从小到大排列,第50个四位数是多少?
由四个不同的非零数字组成的所有四位数中,数字和等于13的数共有多少个?
由四个不同的非零数字组成的所有四位数中,数字和等于13的数共有多少个
N是一个由4个不同数字组成的四位数,它恰好等于所有由这4个数字组成的两位数之和的4倍,则N=多少?
N是一个由4个不同数字组成的四位数,它恰好等于所有由这4个数字组成的两位数之和的4倍,N=?
N是一个由4个不同数字组成的四位数,它恰好等于所有由这4个数字组成的两位数之和的4倍.N=______.
用2,3,4,5,四个数字组成不同的四位数,把它们从小到大排列,第16个是?
在0到9十个数字中,任取4个不同数字组成四位数偶数的概率