• паскаль!!!определить, введена украинская буква является гласной или согласной ! помогите пожалуйста

Ответы 1

  • var s,gl,sogl:string;a,b:integer;begingl:='іїиеєаяоуюІЇИЕЄАЯОУЮ';sogl:='мбпвфндтлзсцчжшрйгкхМБПВФНДТЛЗСЦЧЖШРЙГКХ';writeln ('Введите украинскую букву');read (s);a:=pos (s,gl);b:=pos (s,sogl);if (a <> 0) or (b <> 0) thenbeginif (a <> 0)then writeln ('Гласная');if (b <> 0)then writeln ('Согласная');end else writeln ('Неправильный ввод');end.
    • Автор:

      fox17
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years