Ответ: Алгоритм работающий, но не оптимальный: надо искать позицию последнего вхождения буквы хотя бы с символа, следующего после позиции, обозначенной переменной a
Ответ: спасибо за поправку, буду исправляться
Ответ: Напомню, что в PascalABC есть функция PosEx — это та же Pos, но поиск ведется, начиная с указанной позиции.
Ответ: var a,c,f:integer; d:string; begin f:=0; writeln(‘введите строку’); readln(d); a:=pos(‘е’,d); writeln(‘первый символ стоит на ‘,a,’ позиции’); for c:=1 to length(d) do begin if (d[c] = ‘е’) then f:=c; end; writeln(‘последний символ стоит на ‘,f,’ позиции’); end.
Ответ: { PascalABC.Net }var s:string; i:integer;begin Writeln(‘Введите строку: ‘); Readln(s); Writeln(‘Позиция первой «е»: ‘,Pos(‘е’,s)); Writeln(‘Позиция последней «е»: ‘,Pos(‘е’,ReverseString(s)))end.Тестовое решение:Введите строку: Строка — тестовое решение для PascalABC.NetПозиция первой «е»: 11Позиция последней «е»: 19