program u; var s:string; e,i:integer; begin; read(s); writeln(s); for i:=1 to length(s) do if (s[i]='е') or (s[i]='Е') then e:=e 1; write('Длина строки ', length(s),', третья буква ', s[3],', кол-во букв "е" ', e); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
