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