em moi hoc nen giup voi

[mr.sting1509]

--------------------------------------------------------------------------------

viet ct nhập và xuất ra chuỗi A,B.In ra các kí tự giống nhau tại A,B và vị trí của chúng
VD:
Chuỗi A:AABBSC
Chuỗi B:FMUBDC
Kí tự giống nhau:B và C
vị trí của chúngla:4 va 6

[chungthieugia]

Bạn có thể viết rõ được ko,bạn viết thế ko dịch nổi

[mr.sting1509]

viet ct nhập và xuất ra chuỗi A,B.In ra các kí tự giống nhau tại A,B và vị trí của chúng
VD:
Chuỗi A:AABBDC
Chuỗi B:FMUBDC
Kí tự giống nhau:B và C
vị trí của chúngla:4 va 6

[zeldery]

viet ct nhập và xuất ra chuỗi A,B.In ra các kí tự giống nhau tại A,B và vị trí của chúng
VD:
Chuỗi A:AABBDC
Chuỗi B:FMUBDC
Kí tự giống nhau:B và C
vị trí của chúngla:4 va 6

program tim;
var
a,b:string;
min,i,j:integer;
c:array [1..255]of char;
d:array[1..255]of char;
begin
writeln('Nhap hai chuoi, cach nhau bang dau xuong dong');
readln(a);
readln(b);
if length(a)>length(b) then min:=b
else min:=a;
j:=1;
for i:=1 to min do
if a[i]=b[i] then
begin
c[j]:=a[i];
d[j]:=i;
j:=j+1;
end;
write('Ki tu giong nhau:');
for i:=1 to j do write(c[i],' ');
writeln;
write('Vi tri cua chung la:');
for i:=1 to j do write(d[i],' ');
writeln;
readln;
end.
Mình chưa test, bạn coi và test dùm nhá ^^