Bài 1:

program vitri;

uses crt;

var S:string;

      i:byte;

begin

     clrscr;

     write('Nhap S: ');   readln(s);

     if pos('a',S)=0 then write('Khong co')

     else

     begin

          write('Vi tri xuat hien cua ki tu a la: ');

          for i:=1 to length(s) do

               if S[i]='a' then write(i,' ');

     end;

     readln;

end.

Bài 2:

program xuathien;

uses crt;

var S:string;

      i,d:word;

begin

     clrscr;

     write('Nhap xau S: ');   readln(s);

     d:=0;

     for i:=1 to length(s) do

          if S[i]='1' then d:=d+1;

     if d=0 then write('Trong xau khong co ki tu la so 1')

         else write('Trong xau co ',d,' ki tu la so 1');

     readln;

end.

Bài 1:

program nhaovo;

uses crt;

var X:string;

      i:byte;

begin

     clrscr;

     write('Nhap X: ');   

     readln(x);

     if pos('a',X)=0 then write('Khong co')

     else

     begin

          write('Vi tri xuat hien cua a la: ');

          for i:=1 to length(x) do

               if X[i]='a' then write(i,' ');

     end;

     readln;

end.

Bài 2:

program metquadimat;

uses crt;

var X:string;

      i,d:word;

begin

     clrscr;

     write('Nhap X: ');   

     readln(x);

     d:=0;

     for i:=1 to length(x) do

          if X[i]='1' then d:=d+1;

     if d=0 then write('Trong xau khong co so 1')

         else write('Trong xau co ',d,' ki tu la so 1');

     readln;

end.