Составьте программу нахождения произведения четных элементов ряда. / программа записывается в строчку , команды отделяются друг от друга пробелом ,мало времени осталось

221

413

Посмотреть ответы 1

Ответы на вопрос:

nikanor020499

Информатика

4,5(34 оценок)

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.