viết chương trình nhập từ bàn phím 2 xâu s1 và s2 xác định vị trí. xuất hiện đầu tiên của xâu s1 trong xâu s2
2 câu trả lời
uses crt;
var s1,s2:string;
i:integer;
begin
clrscr;
writeln('Nhap xau s1: '); readln(s1);
writeln('Nhap xau s2: '); readln(s2);
i:=pos(s1,s2); write(i);
readln
end.
uses crt;
var s1,s2:string;
i:integer;
begin
clrscr;
writeln('Nhap xau s1: '); readln(s1);
writeln('Nhap xau s2: '); readln(s2);
i:=pos(s1,s2); write(i);
readln
end.
Câu hỏi trong lớp
Xem thêm
