Есть ответ 👍

Задание 1 Соединитеnо линий
( )
АСТ
THINK
Планирование и принятие реше-
ний в результате понимания и
размышления
Робот обладает
воспринимать окружающий мир
с сенсоров.
Оказание определенного влия-
ния на внешний мир
SENSE
НАДО ДО 6 ЧАСОВ ЗДАТЬ СОР

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

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


Var c,i: integer; x: string; begin writeln('введите слово: '); read(x); for i: =1 to length(x) do   if x[i] in ['а', 'о', 'э', 'и', 'у', 'ы', 'е', 'ё', 'ю', 'я'] then inc(c); writeln('гласных букв в слове: ',c); end.

Популярно: Информатика