- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
-- Согласная ли буква (кроме 'Ц')
FUNCTION is_soglasn(letter IN CHAR
) RETURN BOOLEAN IS
BEGIN
IF letter IN ('Б', 'В', 'Г', 'Д', 'Ж', 'З', 'К', 'Л', 'М', 'Н',
'П', 'Р', 'С', 'Т', 'Ф', 'Х', 'Ч', 'Ш', 'Щ',
'б','в','г','д','ж','з','к','л','м','н',
'п','р','с','т','ф','х','ч','ш','щ')
THEN
RETURN TRUE;
ELSE
RETURN FALSE;
END IF;
END is_soglasn;