GIAI BAI TAP THUC HANH 5

B Bài Thực Hành Số 5 ----------------- -----------------***** ***** *****----------------- ----------------- Bài 1. program xau; uses crt; var i, x:byte; S: string; kt:boolean; begin clrscr; write(`Nhap xau: `);readln(s); x:=length(S); kt:=false; for i:=1 to x div 2 do if S[i]=S[x x-i+1] then kt:=true; if kt then write(`Xau la palindrome`) else write(`Xau khong la palindrome`); readln end. Bài 2. program Bai2; uses crt; var S:string; i,n,dem:integer; ch:char; begin clrscr; write(`Nhap xau: `);readln(S); for i:=1 to length(S) do s[i]:=upcase(s[i]); for ch:=`A` to `Z` do begin dem:=0; for i:=1 to length(s) do if s[i]=ch then dem:=dem+1; if dem>0 then writeln(`Trong xau co `,dem,` chu `,ch); end; readln end. Bài 3. program anhem; uses crt; var S:string; i,n:integer; begin clrscr; write(`Nhap xau: `);readln(s); while pos(`anh`,s)<> 0 do begin n:=pos(`anh`,s); delete(S,n,3); insert(`em`,s,n); end; write(`Xau moi: `,s); readln