Bài 1 . Viết chương trình nhập vào một xâu bất kì , nhập vào kí tự k bất kì . Hãy đếm xem trong xâu đó có bao nhiêu kí tự bằng kí tự k . In kết quả ra màn hình Bài 2. Viết chương trình nhập vào hai xâu bất kì , hãy kiểm tra xem kí tự thứ hai của xâu thứ nhất có trùng với kí tự cuối cùng của xâu thứ hai không . In kết quả ra màn hình Bài 3. Viết chương trình nhập vào một xấu bất kì hãy đếm xem trong xâu đó có bao nhiêu từ ( biết rằng mỗi từ sẽ được viết cách nhau một dấu cách space )

Bài 1:

program oken;
uses crt;
var s: string;
    k: char;
    dem,i: byte;
begin
    clrscr;
    write('Nhap 1 xau: '); readln(s);
    write('Nhap 1 ki tu k: '); readln(k);
    dem:=0;
    for i:=1 to length(s) do
        if k=s[i] then
            dem:=dem+1;
    writeln('So ki tu la ',k,' co trong xau: ',dem);
    readln;
end.

Bài 2:

program oken;
uses crt;
var s1,s2: string;
begin
    clrscr;
    write('Nhap xau thu 1: '); readln(s1);
    write('Nhap xau thu 2: '); readln(s2);
        if s1[2]=s2[length(s2)] then
            writeln('2 ki tu trung nhau: ',s1[2])
        else
            writeln('2 ki tu khong trung nhau');
    readln;
end.

Bài 3:

program oken;
uses crt;
var s: string;
    i,dem: byte;
begin
    clrscr;
    write('Nhap xau: '); readln(s);
    dem:=0;
    for i:=1 to length(s) do
        if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then
            dem:=dem+1;
    writeln('So tu co trong xau: ',dem);
    readln;
end.