giúp mình làm bài này với: (pascal) Cho 2 xâu S1,S2 được nhập vào từ bàn phím. Viết chương trình kiểm tra xem có bao nhiêu ký tự trùng nhau và in các

0 bình luận về “giúp mình làm bài này với: (pascal) Cho 2 xâu S1,S2 được nhập vào từ bàn phím. Viết chương trình kiểm tra xem có bao nhiêu ký tự trùng nhau và in các”

1. program bai_tap;

   uses crt;

   var S1, S2 : string;

         i, a, dem : integer;

   begin

     writeln (‘Nhap xau S1 va S2’);

     readln (S1, S2);

     dem := 0;

     for a := S1 [1] to S1 [length(S1)] do

         begin   for i := 1 to length(S2) do if S2[i] = a then dem := dem + 1;

                     if  dem >= 1 then writeln (a);

         end;

      readln;

   end.

                        

    

    

   Bình luận