Подсчитайте количество гласных латинских букв в строке.(ПАСКАЛЬ)

Question

Подсчитайте количество гласных латинских букв в строке.(ПАСКАЛЬ)

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

const Glasnie=['E', 'Y', 'U', 'I', 'O', 'A','e', 'y', 'u', 'i', 'o', 'a'];var i,k: integer; s: string;begin ReadLn(s); k:=0; for i:=1 to length(S) do if s[i] in Glasnie then k:=k+1; writeLn('Количество гласных - ',k)end.