1/ Viết chương trình yêu cầu nhập vào 2 xâu. Hãy in ra màn hình tổng số kí tự của 2 xâu 2/ viết chương trình yêu cầu nhập vào 1 xâu . Hãy in ra màn hình '' co'' nếu xâu '' 11a1'' xuất hiện trong xâu đã nhập vào , ngược lại in ra màn hình '' khong'' GIÚP VỚI Ạ
2 câu trả lời
var a,b:array[0..10000007] of longint;
i,n,m,k:longint;
begin
readln(n,m);
for i := 1 to n do read(a[i]);
for i := 1 to m do read(b[i]);
k := m;
for i := 1 to n do
b[k+i] := a[i];
for i := 1 to n + k do
write(b[i],#32);
readln;readln
end.
Câu 1 :
uses crt;
var S1, S2 : string;
begin
clrscr;
write('Nhap xau S1 = '); readln(S1);
write('Nhap xau S2 = '); readln(S2);
write('Do dai 2 xau = ', length(S1) + length(S2));
readln
end.
Câu 2 :
uses crt;
var S1 : string;
begin
clrscr;
write('Nhap xau S1 = '); readln(S1);
if pos('11a1', S1) <> 0 then write('Co')
else write('Khong');
readln
end.
