Составить программку, которая бы определяла с гласной ли буковкы начинается введенное

Составить программу, которая бы определяла с гласной ли буковкы начинается введенное слово и определить первая буковка совпадает с данной .
В паскале

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var s:=ReadlnString('Введите слово:').ToLower;
  var c:=ReadlnChar('Введите буковку:').ToLower;
  if Pos(s[1],'аеёиоуыэюя')gt;0 then Writeln('Слово начинается с гласной')
  else Writeln('Слово начинается не с гласной');
  If s[1]=c then Writeln('Слово начинается с обозначенной буковкы')
  else Writeln('Слово не начинается с обозначенной буковкы')
end.

Примеры
Введите слово: Арбуз
Введите буковку: к
Слово начинается с гласной
Слово не начинается с указанной буковкы

Введите слово: Барабан
Введите буковку: б
Слово начинается не с гласной
Слово начинается с обозначенной буковкы
Nikolaj Perejra
Это будет работать через CASE?
Pozelskij Valerij
Задачка С ОПЕРАТОРОМ ВЫБОРА CASE обязана решаться
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт