Cho một xâu có từ bạn. Xem xâu đó có từ bạn hay không? Viết chương trình
2 câu trả lời
uses crt;
var S : string;
begin
clrscr;
write('Nhap xau S = '); readln(S);
if pos('ban', S) <> 0 then write('Xau co tu ban')
else write('Xau khong co tu ban');
readln
end.
var str1: string;
begin
write('Nhap chuoi can tim: ');
readln(str1);
if (pos('ban',str1)<>0) then write('Trong xau co tu ban') else write('Trong xau khong co tu ban');
readln
end.
