// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var s:=ReadlnString('Введите текст').ToWords;
Writeln('Кол-во равно ',s.Where(x->x[1]='а').Count)
end.
<u><em>Тестовое решение:</em></u>
Введите текст Большой арбуз оказался зеленым, а маленький - красным
Кол-во равно 2
28,
25,
82,
85,
52,
58,
22,
88,
55,
1) Недостающие фрагменты:
var a, b, p
Readln(a);
Readln(b);
2) Блок-схема:
(начало)
|
/ a, b /
|
[ y = 3*a^3 - 2*b^2 + 5*a*b ]
|
/ y /
|
(конец)
Программа:
П1 <-> П0 3 <-> x^y 3 * ИП1 x^2 2 * - ИП0 ИП1 5 * * + С/П