请看下面！

var n,i,j,k,l,x:longint;
s,a:array[1..10000000]of longint;
begin
assign(input,'p1287.in');
assign(output,'p1287.out');
reset(input);
rewrite(output);
fillchar(s,sizeof(s),0);
read(n);
write(n,' ');
repeat
l:=0;
j:=0;
while n>0 do
begin
j:=j+1;
s[j]:=n mod 10;
n:=n div 10;
end;
begin
l:=1;
for j:=1 to j do
begin
l:=l*s[j];
end;
if (l<10)and(l>0) then
begin
write(l);
exit;
end;
write(l,' ');
n:=l;
end;
until l=0;
close(input);
close(output);
end.

没错。如果有编译错误，编译器会指出哪里出错；如果有运行错误，会提示错误码。LZ两者都没看见，说明根本没有错误

ID……怎么回事…

没错。这个程序连用途都没有，何来有无错误之说。

明显无错

lzIDOrz

你妈食屎