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.
Пример:
Введите предложение: Написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное
Слово с наибольшим количеством гласных: ПРЕДЛОЖЕНИИ
Ответ:
int func(const int X) {
if (X <= 3) {
return (X * X - 3 * X + 9);
}
else if (X > 3) {
return 1 / (double)(X * X + 6);
}
}
Объяснение:
Если тебе нужна программа для переворачивания числа,вот тебе она на C :
#include <iostream>
using namespace std;
int main()
{
double x;
double y;
cin >> x; /* Ввод числа */
y = 1/x;
cout << "y = " << y << endl;
return 0;
}
Даётся 4 бита, это 2^4 = 16 вариантов (0..15)
ответ: 16
var
t : string := 'операция';
begin
writeln('до ', t);
delete(t, 8, 1);
delete(t, 6, 1);
delete(t, 3, 1);
delete(t, 1, 1);
insert('в', t , 4);
insert('ло', t , 6);
writeln('после ', t)
end.