Bai 1 Xâu đối xứng. Yêu cầu: Xâu S ko quá 200 kí tự. Kiểm tra xem S có phải xâu đối xứng hay ko. (Cái này dễ rồi) Nếu ko phải thì cho biết số kí tự cần thêm vào S để S trờ thành xâu đối xứng. Dữ liệu: Bai3INP.txt : chứa xâu S (1 dòng duy nhất) Bai3OUT.txt : Kết quả: Ghi số kí tự cần thêm vào S để S thành xâu đối xứng. (Nếu đã là xâu đối xứng thì ghi là 0). Ví dụ: VD1: Bai3INP.txt: RADAR Bai3OUT.txt: 0 VD2: Bai3INP: TOMATO Bai3OUT.txt: 3 uses crt; const MN=51; fileinput='d:\Bai3.INP';fileoutput='d:\bai3.out'; type kieuchuoi=array[1 mn] of char; var s:kieuchuoi; n,dem:integer; f:text; procedure Doc; var i:integer; begin assign(f,fileinput); reset(f); i:=0;dem:=0; while not(eof(f)) do begin inc(i); inc(dem); read(f,s[i]); end; close(f); end; function max(a,b:integer):integer; begin if(a>b) then max:=a else max:=b; end; function rec(i,j:integer):integer; begin if(i>j) then rec:=0 else if(i=j) then rec:=1 else begin if s[i]=s[j] then rec:=rec(i+1,j-1)+2 else rec:=max(rec(i+1,j),rec(i,j-1)); end; end; BEGIN Doc; assign(f,fileoutput); rewrite(f); write(f,'so ki tu can them (min) ',dem-rec(1,dem)); close(f); END. Uses crt; Var st:string; i,dem,l,j:longint; BEGIN Clrscr; st:='TOMATO'; dem:=0; l:=length(st); i:=1; While (i<=l) do Begin If (st[i]<>st[l-i+1]) then Begin l:=l+1; For j:=l downto (l-i+1) do st[j]:=st[j-1]; st[l-i+1]:=st[i]; dem:=dem+1; End; i:=i+1; End; Write(dem); Readln; END. Bài 2(5 diem) Biến đổi ma trận Viết chương trình nhập vào hai số nguyên dương m,n và ma trận các số nguyên A[m,n]. Hãy xâu dựng ma trận B[m,n] từ ma trận A với: B[I,j]= P là số ước nguyên tố của A[I,j] nếu A[I,j] > 1 B[I,j]= 0 nếu A[I,j] ≤1 Ví dụ: m=3; n=3 A= − 7 12 3 43 25 6 − 100 36 24 Ma trận B là B= 0 2 1 1 0 2 2 2 2