Написать программу нахождения количества гласных в строке.
Написать программу нахождения количества гласных в строке.
Гость
Ответ(ы) на вопрос:
Гостьconst a:array[1..32] of char=('А','а','Е','е','Ё','ё','И','и','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я','A','a','E','e','I','i','O','o','U','u','Y','y');
var s:string;
i,j,k:integer;
begin
readln(s);
for i:=1 to length(s) do
for j:=1 to 32 do
if s[i]=a[j] then k+=1;
writeln(k);
end.
Не нашли ответ?
Похожие вопросы