viết chương trình nhập vào xâu s in ra tất cả vị trí của kí tự k trong xâu s

0 bình luận về “viết chương trình nhập vào xâu s in ra tất cả vị trí của kí tự k trong xâu s”

1. program vitri;

   uses crt;

   var st:string;

         k:char;

         i:byte;

   begin

   clrscr;

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

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

   writeln(‘Vi tri xuat hien la:’);

   for i:=1 to length(st) do

    if st[i]=k then write(i:4);

   readln

   end.

   Bình luận

2. uses crt;
   var s,k:string;i:integer;
   begin
           clrscr;
           writeln(‘nhap s: ‘);readln(s);
           writeln(‘nhap k: ‘);readln(k);
           for i := 0 to length(s) do
           if k = s[i] then
           begin
                   write(length(s[i]));
           end;
           readln;
   end.

   Bạn coi tham khảo.

   @danhle

   Bình luận