uses crt; var i,kt:longint; s1,s2:string; begin clrscr; write('Nhap xau S1: ');readln(s1); write('Nhap xau S2: ');readln(s2); for i:=1 to length(s1) do if pos(s1[i],s2)<>0 then kt:=1; writeln(kt); readln end.
program bai_giai; uses crt; var S1,S2:string; i:byte; begin clrscr; write('Nhap S1: '); readln(S1); write('Nhap S2: '); readln(S2); for i:=1 to length(S1) do if pos(S1[i],S2)<>0 then begin write(1); readln; exit; end; write(0); readln; end.