Здравствуйте!Срочно нужна помощь....

Тема в разделе "Информатика", создана пользователем bibikogr, 9 янв 2010.

  1. bibikogr

    bibikogr New Member

    Здравствуйте!Срочно нужна помощь. Необходимо написать программу на Паскале: Подсчитайте количество гласных встроке.
     
    bibikogr, 9 янв 2010
    #1
  2. ZAYKA

    ZAYKA New Member

    Var
    a:string;
    k,S:integer;
    Begin
    Read(a);
    For k:= 1 to Length(a) do
    if (a[k]='а') or (a[k]='е') or (a[k]='ё') or (a[k]='и') or (a[k]='о') or (a[k]='у') or (a[k]='ы') or
    (a[k]='э') or (a[k]='я') or (a[k]='ю') then s:=s+1;
    Write(s)
    End.
     
    ZAYKA, 9 янв 2010
    #2

Поделиться этой страницей

Наша группа