Написать алгоритм,что указывает в данному предложении слово, в котором количество гласных (а, е, о) максимальное

170

379

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

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

ваня1358

Информатика

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

Var s, c, cmax: string; i, j, k, max: integer; begin write('введите предложение: '); readln(s); s : = uppercase(s) + '.'; max : = 0; i : = 1; while (i < = length(s)) do begin c : = ''; while (s[i] in ['а'..'я']) do begin c : = c + s[i]; i += 1; end; k : = 0; for j : = 1 to length(c) do if (c[j] in ['а','е','ё','и','о','у','э','ю','я']) then k : = k + 1; if (k > max) then begin max : = k; cmax : = c; end; i += 1; end; writeln('слово с наибольшим количеством гласных: ',cmax); end. пример: введите предложение: написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное слово с наибольшим количеством гласных: предложении