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.
Пример:
Введите предложение: Написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное
Слово с наибольшим количеством гласных: ПРЕДЛОЖЕНИИ
Byte, Short, Integer, Long, Single, Double
V(2 байт)=2048+х
16:8=2
2х=2048+х
х=2048
x(2 байт)=4096=32768
N=2 байт=16 бит= 2(в 4 степени) бит
=>i=4 бит
х=k*i
=> k=x:i
k=32768:4=8192
Ответ: Количество символов=8192
Если в байтах: 112986270
если в мега байтах: 107.7521038
1. 1111₂+1100₂=11011₂ - ответ.
2. Рассмотрим каждое утверждение:
Если истинно утверждение, что "А делится на 55", тогда истины и 2 первых утверждения, потому что 55/5=11 55/11=5 - получается уже 3 истины, значит это ложное высказывание.
Если истинно высказывание: "А меньше 10", тогда <u>"А делится на 11" - ложь</u>. Отсюда истинная пара: "А меньше 10" и "А делится на 5".
Иначе, если "А меньше 10" - ложь, тогда остается пара: "А делится на 5" и " А делится на 11", но эта пара истинной быть не может, потому как если А делится на 11 и 5, то 11 должно делится на 5.
<u>Ответ: A=5</u>