Задание:
Вести строку символов которая начинается пробелом и заканчивается пробелом. Слова разделены пробелом. 1) найти кол-во слов которые заканчиваются на букву"б»
Решение:
var i, e: Integer; s: String; begin Writeln ('Введите строку: '); Readln (s); e: =0; for i: =2 to Length (s) do if (s[i]=') and (s[i-1]='б') then inc (e); Writeln ('Таких слов: ', e); end.
Знаете другой ответ?