骗了60分嘿嘿

P2010 [NOIP2016 普及组] 回文日期

sun坠坠 @ 2016-11-20 20:57:56

var
x,y:string;
i:integer;
begin
readln(x);
readln(y);
for i:=1 to 4 do
 if(x[i]<>x[8-i+1])
  then begin writeln(0);exit;end;
writeln(1);
end.

by __世界第一弱__ @ 2016-11-20 21:07:37


by oblivion_Zzz @ 2016-11-21 13:10:41

hh


by 2016jzy @ 2016-11-23 21:58:31

感觉这题数据好恶心啊。。


|