Разработать программу выясняющую на какую из букв- гласную или согласную начинается слово Х - Turbo Pascal
Формулировка задачи:
разработать программу выясняющую на какую из букв гласную или согласную начинается слово x
Решение задачи: «Разработать программу выясняющую на какую из букв- гласную или согласную начинается слово Х»
textual
Листинг программы
const res: array [0..2] of String[9] = ('не буква','гласная','согласная');
...
WriteLn('Первая буква ',res[Ord(s[1] in vovs)+2*Ord(s[1] in cons)]);