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.
Пример:
Введите предложение: Написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное
Слово с наибольшим количеством гласных: ПРЕДЛОЖЕНИИ
#include <iostream>
#include <cmath>
int main()
{
int a;
int S;
std::cin >> a;
if (a > 5)
{
S = std::sin(std::cos(a*3-2)+std::tan(a/2.0));
std::cout << S << std::endl;
}
else if (a < 2)
{
S = std::atan(a) + std::sqrt(a) + std::pow(a,3);
std::cout << S << std::endl;
}
else
{
std::cout << "No solutions!" <<std::endl;
}
return 0;
}
begin
writeln('Сдача с 1000р при покупке 3 кг и 500г по цене 80 за кг = ', (1000 - (3.5 * 80)):2:2);
end.