Найти кол-во гласных букв в строке?(Паскаль)
Найти кол-во гласных букв в строке?(Паскаль)
Гость
Ответ(ы) на вопрос:
Гостьconst glr='АЕЁИОУЫЭЮЯаеёиоуыэюя'; gle='AEIOUYaeiouy';
var s:string; k,i:integer;
begin
writeln('Введите строку:');
readln(s);
k:=0;
for i:=1 to length(s) do
if pos(s[i],glr)+pos(s[i],gle)>0 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Введите строку:
Primer пример.
k = 4
Не нашли ответ?
Похожие вопросы