<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
// Вводим строку с клавиатуры, приводим буквы к строчным,
// разбиваем на слова по пробелу и помещаем их в массив aW
var aW:=ReadlnString('->').ToLower.ToWords;
// Пропускаем массив через фильтр, оставляющий слова, содержащие
// русскую букву "а" и подсчитываем, сколько слов прошло через него.
// Полученное количество выводим.
Writeln('Слов с "а": ',aW.Where(w->Pos('а',w)>0).Count)
end.
Пример
-> Наша Таня громко плачет: уронила в речку мячик
Слов с "а": 4
Все на рисунке во вложении.
В одном каталоге не может быть двух папок или двух файлов с одинаковыми именами. В данном случае в папке USERS есть две папки PETER, чего быть не может.
11 девочек м 10 мальчиков.
<span>1011= 1*2^3+0*2^2+1*2^1+1*2^0=8+0+2+1=11
</span>1010= 1*2^3+0*2^2+1*2^1+0*2^0=8+0+2+0=10
Ответ:
1
Объяснение:
Объяснения не просили, я и не буду писать.