来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/11/10 18:59:22
如果用free pascal篇写程式 应该怎样写;;请各位大侠指点一下
任意输入一个正整数,(0
var
i,j,k,n,tmp:longint;
a:array[1..3]of longint;
begin
read(n);
a[1]:=n mod 10;
n:=n div 10;
a[2]:=n mod 10;
n:=n div 10;
a[3]:=n mod 10;
for i:=1 to 3-1 do
for j:=i+1 to 3 do
if a[i]
神马作文网