Viết chương trình tìm ra các vị trí có chữ a trong chuỗi s -> pascal ạ

0 bình luận về “Viết chương trình tìm ra các vị trí có chữ a trong chuỗi s -> pascal ạ”

1. Bạn coi nha:

   uses crt;
   var s:string;i:integer;
   begin
           clrscr;
           write(‘nhap sau s: ‘);readln(s);
           for i := 1 to length(s) do
           begin
                   if s[i] = ‘a’ then write(i, ‘ ‘);
           end;
           readln;
   end.

   @danhle

   Bình luận

2. program tims;

   uses crt;

   var s:string;i:integer;

   begin

           clrscr;

           write(‘nhap sau s: ‘);readln(s);

           for i := 1 to length(s) do

           begin

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

           end;

           readln;

   end.

   buồn 

   Bình luận