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.

${Oken}$

Bài 1:

program  b1;
uses crt;
var  dem,i:integer;

       s:string;

       k:char;
begin clrscr;
    writeln('Nhap xau: '); readln(s);
    write('Nhap ki tu k: '); readln(k);
      dem:=0;
    for i:=1 to length(s) do
      if k=s[i] then dem:=dem+1;
    writeln(‘Trong xau co ‘,dem,’ ki tu bang ki tu ‘,k);
readln;
end.

Bài 2:

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

Bài 3:

program b3;
uses crt;
var s:string;
      i,dem:integer;
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.

Học tốt!