Viết chương trình nhập một sâu từ bàn phím. Hãy hiển thị vị trí của kí tự A trong sâu vừa nhập lên màn hình

0 bình luận về “Viết chương trình nhập một sâu từ bàn phím. Hãy hiển thị vị trí của kí tự A trong sâu vừa nhập lên màn hình”

1. Program bai_tap;

   Uses crt;

   Var s :string[100];
          i :integer;

      Begin

          clrscr;

          write(‘Nhap xau:’,s); 

          readln(s);

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

          else for i:= 1 to length(s) do

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

          readln;

      End.

   Bình luận

2. program vi_tri;

   uses crt;

   var s:string;

        i:byte;

   begin

          clrscr;

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

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

          else for i:=1 to length(s) do

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

          readln;

   end.

   Bình luận