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
program oken;
uses crt;
var s,s2:string;
begin
clrscr;
write('Nhap xau thu 1: ');
readln(s);
write('Nhap xau thu 2: ');
readln(s2);
writeln(pos(s,s2));
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
