Предмет: Информатика,
автор: grich1998
Написать программу нахождения количества гласных в строке.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Математика,
автор: Begijon09
Предмет: Английский язык,
автор: vityarabotasoc11
Предмет: Английский язык,
автор: ckcjcjrndnsksk
Предмет: Алгебра,
автор: MissKarina007
Предмет: Алгебра,
автор: тунеядец02