Var s,gl,sogl:string;a,b:integer; begin gl:='іїиеєаяоуюІЇИЕЄАЯОУЮ'; sogl:=''; writeln ('Введите украинскую букву'); read (s); a:=pos (s,gl); b:=pos (s,sogl); if (a <> 0) or (b <> 0) then begin if (a <> 0)then writeln ('Гласная'); if (b <> 0)then writeln ('Согласная'); end else writeln ('Неправильный ввод'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
