Помогите пожалуйста написать программку на ABC Pascal.Определить долю гласных букв в

Помогите пожалуйста написать программу на ABC Pascal.
Найти долю гласных букв в данном тексте на британском языке.

Задать свой вопрос
1 ответ
Const b:array[1..12] of string=('A','a','E','e','I','i','O','o','U','u','Y','y');
var a:string;
i,j,k:integer;
begin
readln(a);
for i:=1 to length(a) do
  for j:=1 to 12 do
    if a[i]=b[j] then k+=1;
writeln(k/length(a):3:2);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт