Новые сообщения · Правила  
  • Страница 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 ]
  • Страница 1 из 1
  • 1
Поиск: