Информатика, опубликовано 2018-08-22 23:05:28 by Гость
Написать программу нахождения количества гласных в строке.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на