作业帮 > 综合 > 作业

free pascal 程序:打印由1,2,3,4四个数字组成的所有四位数,并统计个数.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/07 13:54:58
free pascal 程序:打印由1,2,3,4四个数字组成的所有四位数,并统计个数.
var i,j,k,x,y,z,n,l:longint;
begin
for i:=1 to 4 do
for j:=1 to 4 do
for k:=1 to 4 do
for l:=1 to 4 do
if(ij)and(ik)and(il)and(jk)and(jl)and(kl)then begin
writeln(1000*i+100*j+10*k+l);
inc(n);
end;
writeln('Total:',n);
end.