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.
Пример:
Введите предложение: Написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное
Слово с наибольшим количеством гласных: ПРЕДЛОЖЕНИИ
В <em>head</em> внутри тега <span><title></span> заголовок <span><em><title></em><u><em>MySite</em></u><em></title></em></span>
Фон (если только HTML) - св-ва bgcolor и background у <em><body></em>: <span><em><body bgcolor="</em><u><em>red</em></u><em>"></em>
</span>
P.S. Прекрасный сайт об HTML и CSS: http://htmlbook.ru/
Вот две еквивалентные диаграмы, проще вторая, но если вам нельзя использовать многочисленое условие (в данном случаи двойное), то лучше выберете первый вариант :)
Спасибо за отметку "Лучшый ответ" и нажатую кнопочку "Спасибо" (:
3
если остаток от деления числа Х на 3 равен 0 и остаток от деления числа Х на 6 НЕ равен 0, то....
1) 46
2) 8
3) Антон/Иван/Никита. если один вариант, то не знаю