Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Нужно решить на паскале (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.