Нужно решить на паскале (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
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.
var
s:string;
i:integer;
begin
Writeln('Введите строку: ');
Readln(s);
Writeln('Позиция первой "е": ',Pos('е',s));
Writeln('Позиция последней "е": ',Pos('е',ReverseString(s)))
end.
Тестовое решение:
Введите строку:
Строка - тестовое решение для PascalABC.Net
Позиция первой "е": 11
Позиция последней "е": 19