Question

Дана строка содержащая любые символы кроме русских букв.

Написать функцию, которая в заданной строке находит количество больших и маленьких гласных английских букв.

Использовать заголовок:

function CalcGlasLatBukv(Stroka: string): integer;
На паскале

Answer 1

Ответ:

function CalcGlasLatBukv(Stroka: string): integer;

   var i,count:integer;

   begin

       count:=0;

       for i:=1 to length(Stroka) do begin

           case Stroka[i] of

               'a','e','i','o','u','y','A','E','I','O','U','Y': count:=count+1;

           end;

       end;

       CalcGlasLatBukv:=count;

   end;

begin

   write(CalcGlasLatBukv('Hello'));

end.