Viết chương trình nhập vào từ bàn phím hai xâu a và b , kiểm tra xem xâu a có nằm trong b hay không và đưa ra màn hình kết quả.
2 câu trả lời
uses crt;
var a,b:string;
c:integer;
begin
write('nhap a:');readln(a);
write('nhap b:');readln(b);
c:=pos(a,b);
if c>=1 then writeln('Co') else writeln('Khong');
readln;
end.
program bai4;
uses crt;
var a,b:string;i,kt:longint;
begin
clrscr;
write('nhap xau a:');readln(a);
write('nhap xau b:');readln(b);
for i:=1 to length(a)-length(b)+1 do if(b=copy(a,i,length(b)))then
begin
kt:=1;
break;
end else kt:=0;
if(kt=1)then write('co')else write('khong');
readln
end.
Câu hỏi trong lớp
Xem thêm
