zerojudge a011答案 10. varwor1:string;wor2:array[0..10000]ofchar;i,l,k:integer;beginwhilenoteofdobegink:=0;readln(wor1);i:=length(wor1);wor2:=wor1 ...
確定! 回上一頁