Tin học VCT nhập vài xâu S1 và S2, cho biết xâu S1 có nằm trong xâu S2 không? 25/07/2021 By Nevaeh VCT nhập vài xâu S1 và S2, cho biết xâu S1 có nằm trong xâu S2 không?
uses crt;var s1,s2:string;beginclrscr; write(‘s1=’);readln(s1); write(‘s2=’);readln(s2); writeln(pos(s1,s2)<>0);readlnend. Trả lời
program kiemtra; uses crt; var s1,s2:string; begin clrscr; write(‘Nhap xau s1: ‘); readln(s1); write(‘Nhap xau s2: ‘); readln(s2); if pos(s1,s2) then write(‘Co xau s1 trong xau s2’) else write(‘Khong co xau s1 trong xau s2’); readln end. Trả lời
uses crt;
var s1,s2:string;
begin
clrscr;
write(‘s1=’);readln(s1);
write(‘s2=’);readln(s2);
writeln(pos(s1,s2)<>0);
readln
end.
program kiemtra;
uses crt;
var s1,s2:string;
begin
clrscr;
write(‘Nhap xau s1: ‘); readln(s1);
write(‘Nhap xau s2: ‘); readln(s2);
if pos(s1,s2) then write(‘Co xau s1 trong xau s2’)
else write(‘Khong co xau s1 trong xau s2’);
readln
end.