#8713: 新手求高手求助pascal
lamkaihou
(ku_Lam)
var a,b,c:longint;
begin
while not eof do begin
readln(a,b);
c:=a mod b;
if c=0 then writeln('Ok!')
else writeln('Impossib1e!');
end;
end.
他說我的程式RE200,到底我有甚麼錯?
#8937: Re:新手求高手求助pascal
lsweizixuan
(摸鱼学语言)
code200指被0除，有可能b是0，而a不是，要输出'Impossib1e!'。