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 20/07/2021 Bởi Alexandra 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
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’); readlnend. Bình luận
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.