free pascal四位数排列 任给出4个非0的不同数字,求出由这4个数字组成的所有的4位数.
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/09 04:44:28
free pascal四位数排列 任给出4个非0的不同数字,求出由这4个数字组成的所有的4位数.
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个不同数字组成四位数偶数的概率