Объяснение:
var
S: String;
i: Integer;
PosStart, PosEnd: Integer;
begin
Readln(S);
PosStart := Pos('e', S); // находим порядковый номер первого "е"
for i:=Length(S) downto 1 do
if(S[i] = 'e') then begin
PosEnd := i; // последний "е"
Break;
end;
Writeln('PosStart = ', PosStart, '; PosEnd = ', PosEnd);
ReadLn;
end.
Объяснение:
var
S: String;
i: Integer;
PosStart, PosEnd: Integer;
begin
Readln(S);
PosStart := Pos('e', S); // находим порядковый номер первого "е"
for i:=Length(S) downto 1 do
if(S[i] = 'e') then begin
PosEnd := i; // последний "е"
Break;
end;
Writeln('PosStart = ', PosStart, '; PosEnd = ', PosEnd);
ReadLn;
end.