Нужно решить на паскале (ABC) Дано предложение, в котором имеется несколько букв е. Найти: а) порядковый номер первой из них; б) порядковый номер последней из них. Спасибо

Нужно решить на паскале (ABC) Дано предложение, в котором имеется несколько букв е. Найти: а) порядковый номер первой из них; б) порядковый номер последней из них. Спасибо
Гость
Ответ(ы) на вопрос:
Гость
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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы