Question

Написать функцию sogl, которая возвращается True, если символ, полученный функцией в качестве аргумента, является согласной буквой русского алфавита и False если буква гласная
Написать на Pascal !!!

Answer 1

===== PascalABC.NET =====

function sogl(c: char) :=

 not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));

 

// проверка функции

begin

 var s := 'ТестируемРусскийАлфавит';

 foreach var c in s do

   Print(sogl(c));

end.

На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.