Bt pascal

Bài 1: viết chương trình nhập vào một xâu s bất kỳ. Sau đó cho biết xâu s vừa nhập có bao nhiêu kí tự số?
Giải: (cách 1)
program dem_ky_tu_so;
uses crt;
var s: string;
i, l, dem: byte;
begin
clrscr;
write(`nhap xau, s= `); readln(s);
dem:=0;
for i:=1 to length(s) do
if (s[i]>=`0`) and (s[i]<=`9`) then dem:=dem+1; (*inc(dem);*)
writeln(`so ki tu so trong xau s la: `,dem);
readln;
end.

Giải: (cách 2)
program dem_ky_tu_so; {cách khác}
uses crt;
var s: string;
i, l, dem: byte;
begin
clrscr;
write(`nhap xau, s= `); readln(s);
dem:=0;
for i:=1 to length(s) do
if (ord(s[i])>=48) and (ord(s[i])<=57) then dem:=dem+1;
writeln(`so ki tu so trong xau s la: `,dem);
readln;
end.










Bài 2: viết chương trình nhập vào một xâu s bất kỳ. Sau đó cho biết xâu s vừa nhập có bao nhiêu kí tự khác kí tự số?

Giải: (cách 1)
program dem_ky_tu_khac_so; {cách 1}
uses crt;
var s: string;
i, l, dem: byte;
begin
clrscr;
write(`nhap xau, s= `); readln(s);
dem:=0;
for i:=1 to length(s) do
if (ord(s[i])<48) or (ord(s[i])>57) then dem:=dem+1;
writeln(`so ki khac ki tu so trong xau s la: `,dem);
readln;
end.


Giải: (cách 2)
program dem_ky_tu_khac_so; {cách 2}
uses crt;
var s: string;
i, l, dem: byte;
begin
clrscr;
write(`nhap xau, s= `); readln(s);
dem:=0;
for i:=1 to length(s) do
if (s[i]<`0`) or (s[i]>`9`) then dem:=dem+1;
writeln(`so ki khac ki tu so trong xau s la: `,dem);
readln;
end.








Bài 3: Viết chương trình nhập vào một xâu s bất kì. Sau đó thay thế cụm kí tự ‘anh’ bằng cụm kí tự ‘em’

Giải:
program thay_the;
uses crt;
var s: string;
i, l, dem: byte;
begin
clrscr;
write(`nhap xau, s= `); readln(s);
for i:=1 to length(s) do s[i]:=upcase(s[i]);
while pos(`ANH`,s)<>0 do
begin
insert(`EM`,s, pos(`ANH`,s));
delete(s, pos(`ANH`,s),3);
end;
writeln(`xau s sau khi thay the la: `,s);
readln;
end.

Bài 4: Viết chương trình nhập vào một xâu s bất kì. Sau đó nhập vào một cụm từ trong xâu s được thay thế bởi một cụm từ cần thay thế được nhập tuỳ ý từ bàn phím.
Giải:
program thay_the;
uses crt;
var s, tu, tu1: string;
i, l, dem: byte;
begin
clrscr;
write(`nhap xau, s= `); readln(s);
write(`nhap tu trong sau s duoc thay the, tu= `); readln(tu);
write(`nhap tu can thay the, tu1= `); readln(tu1);
while pos(tu,s)<>0 do
begin
insert(tu1,s, pos(tu,s));
delete(s, pos(tu,s),length(tu));
end;
writeln(`xau s sau khi thay the la: `,s);
readln;
end.
Bài 5