您所在位置：主题：请教
靤^^^
[专家分：0] 发布于 2007-10-27 21:30:00
program p_3_17;
const
Last=6;
N=4;
[color=FFFF00]procedure p(a,c:integer);[/color]
var
t,b:integer;
begin
[color=FF0000] t:=a*N+c;
if (t=Last) and (a<>0) then exit;[/color]
b:=t div 10;
t:=t mod 10;
p(t,b);
write(t);
end;
begin
writeln;
p(Last,0);
write(Last)
end.
可否解释下呢!!
const
Last=6;
N=4;
[color=FFFF00]procedure p(a,c:integer);[/color]
var
t,b:integer;
begin
[color=FF0000] t:=a*N+c;
if (t=Last) and (a<>0) then exit;[/color]
b:=t div 10;
t:=t mod 10;
p(t,b);
write(t);
end;
begin
writeln;
p(Last,0);
write(Last)
end.
可否解释下呢!!
