Информатика, опубликовано 2018-08-22 17:41:50 by Гость

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

Ответ оставил Гость

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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.