所有的数据都可能是完全平方数........

program Project1;

var

str1,str2,str4,str8:string;

t,i,m,k,s:longint;

begin

t:=length(str1);

for i:=1 to t do

begin

val(str1[i],k,m);

s:=s+k;

end;

str2:=copy(str1,t,1);

str4:=copy(str1,t-1,2);

str8:=copy(str1,t-2,3);

val(str2,k,m);

if k mod 2 =0 then

begin

writeln('1');

if s mod 3=0 then writeln('1')else writeln('0');

if str4[1]='0'then delete(str4,1,1);

val(str4,k,m);

if k mod 4=0 then

begin

writeln('1');

while (str8[1]='0')and (length(str8)>1) do delete(str8,1,1);

val(str8,k,m);

if k mod 8=0 then writeln('1')else writeln('0') ;

end

else

begin writeln('0');writeln('0');end;

end

else

begin

writeln('0');

if s mod 3=0 then writeln('1')else writeln('0');

writeln('0');writeln('0');

end;

writeln('1');

end.

踩场~~

提出强烈抗议！这题明明是我提交的！怎么会变成 pycq2002的了！

youmanle