//PascalABC.NET 3.4.2
begin
var str := readstring('Введите строку:').ToWords;
var ch := readchar('Введите букву:');
str.Where(x -> Pos(LowerCase(ch), LowerCase(x)) = 1).Count.Print;
end.
я программисть:)
Такого правила нет в информатике
<span>1. Бумажные презентации:
</span><span>2. Электронные презентации:</span>
110101+1010=111111
1101*11=12111
Камень
свойства:тяжелый,черный,круглый
их значения:вес,цвет,форма)