Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (32.52 KB, 2 trang )
<span class='text_page_counter'>(1)</span>Tuong tuong day so la mot soi day chuyen hinh tron>> VD. INP 222222335533 OUT 2. Ghi ra so cach dat khoa sao cho chia doi day truyen thanh 2 nua giong nhau Giai thich (2) (2)(2)(3)(3)(5). (5)(3)(3)(2)(2)(2). var f1,f2:text; s,x,z:string; i,j,k,dem:longint; begin assign(f1,'JEWEL.INP');reset(f1); assign(f2,'JEWEL.OUT');rewrite(f2); while not eof(f1) do begin readln(f1,s); dem:=0; if length(s) mod 2<>0 then writeln(f2,0) else begin k:=length(s) div 2; for i:=1 to length(s) do s:=s+s[i]; i:=0; repeat i:=i+1;.
<span class='text_page_counter'>(2)</span> x:=copy(s,i,k); z:=copy(s,i+k,k); for j:=length(z) downto 1 do z:=z+z[j]; delete(z,1,k); if x=z then inc(dem); until i=length(s) div 2; writeln(f2,dem); end; end; close(f1);close(f2); end..
<span class='text_page_counter'>(3)</span>