дано предложение-строка. подсчитать количество слов, начинающихся с буквы 'а' написать программу на паскале
Answers & Comments
andreyshevchenko
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016 begin var s:=ReadlnString('Введите текст').ToWords; Writeln('Кол-во равно ',s.Where(x->x[1]='а').Count) end.
Тестовое решение: Введите текст Большой арбуз оказался зеленым, а маленький - красным Кол-во равно 2
Answers & Comments
begin
var s:=ReadlnString('Введите текст').ToWords;
Writeln('Кол-во равно ',s.Where(x->x[1]='а').Count)
end.
Тестовое решение:
Введите текст Большой арбуз оказался зеленым, а маленький - красным
Кол-во равно 2