100 INPUT N 110 LET P=INT(LOG(N)/LOG(3))+1 120 LET X=3^(P-1) 130 LET M=N 140 FOR I=1 TO INT(P/2) 150 LET A=INT(N/X) 160 LET N=N-INT(N/X)*X 170 LET X=X/3 180 LET B=M-INT(M/3)*3 190 LET M=INT(M/3) 200 IF A<>B THEN GOTO 240 210 NEXT I 220 PRINT "一致する" 230 GOTO 250 240 PRINT "一致しない" 250 END