Вывести на экран символ, предшествующий первому вхождению

Страница 1 из 1 1
Модератор форума: Berestovskiy

Вывести на экран символ, предшествующий первомувхождению буквы «а» или сообщить о том, что буквы «а» нет в предложении.

№1 | Автор: irsen22 | 2013-05-13, 09:12 | Репутация: [ + 0 ]

var
s:string;
begin
readln(s);
if pos('a',s) = 0 then writeln('Буквы А нет в предложении') else
writeln(s[pos('a',s)-1]);
end.

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№2 | Автор: Berestovskiy | 2013-05-13, 10:22 | Репутация: [ + 211 ]

прикладная математика