如果用free pascal篇写程式 应该怎样写;;请各位大侠指点一下任意输入一个正整数,(0

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/22 23:47:19
如果用freepascal篇写程式应该怎样写;;请各位大侠指点一下任意输入一个正整数,(0如果用freepascal篇写程式应该怎样写;;请各位大侠指点一下任意输入一个正整数,(0如果用freepas

如果用free pascal篇写程式 应该怎样写;;请各位大侠指点一下任意输入一个正整数,(0
如果用free pascal篇写程式 应该怎样写;;请各位大侠指点一下
任意输入一个正整数,(0

如果用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]