viết chương trình nhập vào xâu s bất kì , cho biết vị trí xuất hiện sâu ( sâu bất kì)
1 câu trả lời
program xuat_hien;
uses crt;
var s,s1:string;
begin
clrscr;
write('Nhap xau thu nhat: '); readln(s);
write('Nhap xau thu hai: '); readln(s1);
if pos(s1,s)=0 then write('Khong co')
else write('Vi tri xuat hien dau tien la: ',pos(s1,s2));
readln;
end.
