您的計劃:
定義變量
n，m，t，s:字符串；
I，j，l，k，r，q，e，y:longint；
p，w:真實；
答:數組[1..10000]的字符串；
數組[1..longint的10000]；
開始
而不是eof
開始
readln(n，m)；
val(n，j)；
val(m，l)；
e:= 0；
w:= 0；
因為我:=j to l do
開始
str(i，t)；
k:=長度(t)；
對於r:=1到k do
開始
val(t[r]，b[r])；
p:= exp(k * ln(b[r])；
w:= w+p；
結束；
如果w=i，那麽
開始
str(w，s)；
對於q:=j到l做a[q]:= s；
結束
else e:= e+1；
結束；
如果e=(l-j)+1，則writeln('none ')
其他
開始
for q:= j to l do writeln(a[q])；
結束；
結束；
結束。//行號(39)，變量號(16)
我的:
程序ex 1；
var tf，n，m，I，j，k，sum:longint；
答:數組[1..7]的渴望；
s:字符串；
開始
而不是eof
開始
readln(n，m)；
TF:= 0；
對於i:=n到m do
開始
str(i，s)；
sum:= 0；
對於j:=1到長度do
開始
a[j]:= ord(s[j])-48；
對於k:=1到長度(s)-1 do
a[j]:= a[j]*(ord(s[j])-48)；
inc(sum，a[j])；
結束；
如果sum=i，那麽
開始
寫(I，' ')；
Inc(TF)；
結束；
結束；
如果tf=0，則
寫('無')；
writeln
結束；
結束。{(行數:31)變量個數:9 AC case:417485 lzoi _ wyh a040。阿姆斯特朗數AC (28ms，608kb)帕斯卡2010-01-3012。
至於我這個節目的意義，很好理解。妳可以試著寫出來。這個問題挺簡單的。
我已經打開了源代碼，妳可以去這裏看看:
http://zerojudge.tw/RealtimeStatus