vj1482 筛选

vj1482 筛选 - / / / /...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
//±ÉÈ˵ķ½·¨ //ËÑË÷ //ɾµô»¹Ê£ 4 ¸ö¾Í¼ì²é / var n:longint; s:string; find:boolean; procedure dfs(st:string; k:integer); var tmp:string; begin if find then exit; if length(st)=4 then begin if (st[1]=st[2]) and (st[3]=st[4]) or (st[1]=st[4]) and (st[2]=st[3]) then find:=true; exit;
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.
Ask a homework question - tutors are online