Программа на паскале с клавиатуры вводится имя на латинице . определить , является ли оно мужским или женским мужские имена заканчиваются на согласные( исключения: никита , илья) , а все женские- на гласные( исключение: любовь)
Var s:string; begin readln(s); if ((s[length(s)] in ['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','х','ц','ч','ь']) or (s='Никита') or (s='Илья')) and (s<>'Любовь') then writeln('Мужское') else writeln('Женское'); end.
Var
s:string;
begin
readln(s);
if ((s[length(s)] in ['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','х','ц','ч','ь']) or (s='Никита') or (s='Илья')) and (s<>'Любовь') then writeln('Мужское')
else writeln('Женское');
end.