if st3[i]=' ' then begin d1:=i; break end;
for i:=k downto 1 do
if st3[i]=' ' then begin d2:=i; break end;
d:=d1-d2;
slovo:=copy(st3,d2+1,d)
и переменные в них.
Программа:
var st1,st2,st3,slovo: string;
i,p,k,d1,d2,d: integer;
b: char;
begin clrscr;
write('Vvedite stroku1: ',st1); readln(st1);
write('Vvedite stroku2: ',st2); readln(st2);
if length(st1)>length(st2) then
for i:=1 to length(st1) do begin
if st1[i]<>st2[i] then begin
b:=st1[i]; p:=2; k:=i; break;
end else st3:=st2;
end
else for i:=1 to length(st2) do
if st2[i]<>st1[i] then begin
b:=st2[i]; p:=1; k:=i; break;
end else st3:=st1;
for i:=k to length(st3) do
if st3[i]=' ' then begin d1:=i; break end;
for i:=k downto 1 do
if st3[i]=' ' then begin d2:=i; break end;
d:=d1-d2;
slovo:=copy(st3,d2+1,d);
writeln ('Bukva "',b,'" propushena v stroke "',p,'" v slove " ',slovo,'"');
repeat until readkey=#27;
end.
Если можете, можно расписать всю программу по шагам (так даже лучше), буду очень признателен!!!
Спасибо...