Подсчитайте количество гласных латинских букв в строке.(паскаль) - вопрос №5616294 от 89538277266 26.03.2023 07:33

Question

Информатика: Подсчитайте количество гласных латинских букв в строке.(паскаль)

89538277266 · 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....