Viết chương trình nhập vào một câu và kí tự K . xét xem K có trong câu hay không.Nếu có cho biết vị trí của nó GIÚP MÌNH VỚI Ạ

0 bình luận về “Viết chương trình nhập vào một câu và kí tự K . xét xem K có trong câu hay không.Nếu có cho biết vị trí của nó GIÚP MÌNH VỚI Ạ”

1. program xuathien;

   uses crt;

   var s:string;

         k:char;

         i:byte;

   begin

        clrscr;

        write(‘Nhap xau: ‘);   readln(s);

        write(‘Nhap ki tu k: ‘);   readln(k);

        if pos(k,s)=0 then write(‘Khong co’)

        else

             begin

                  write(‘Vi tri xuat hien cua k trong xau la: ‘);

                  for i:=1 to length(s) do

                       if s[i]=k then write(i,’ ‘);

             end;

        readln;

   end.

   Bình luận

2. program timk;

   uses crt;

   var st:string;

         k:char;

         i:byte;

   begin

        clrscr;

        write(‘Nhap xau: ‘);   readln(st);

        write(‘Nhap ki tu k: ‘);   readln(k);

        if pos(k,st)=0 then write(‘Khong co’)

        else

             begin

                  write(‘Vi tri xuat hien cua k trong xau la: ‘);

                  for i:=1 to length(st) do

                       if st[i]=k then write(i,’ ‘);

             end;

        readln;

   end.

   Bình luận