program gt; var a:string; k,l,i:integer; begin readln(a); //Сначала переведем вес текст в нижний регистр l:=length(a); k:=0; for i:=1 to l do begin if(ord(a[i])>64)and(ord(a[i])<91)then a[i]:=chr(ord(a[i]) 32); if(a[i]='а')or(a[i]='у')or ... or(a[i]='е')then k:=k 1; //здесь вместо точек пиши как ////предедушие но с гласными(другими) буквами end; writeln(k); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
