(A ∧ B) ∧ (C ∧ (C ∨ A)) = A·B·(C·(C+A)) = ABC(C+A) = ABCC+AABC =
ABC+ABC = ABC = A ∧ B ∧ C
<span>в. repeat k<1 until k:=k+1;
Должно быть: </span>repeat k:=k+1 until k<1;
Ответ: 10.
Просто 5 раз проделываем операцию.
(x<11) и (x>=9) - пересечение множеств решений этих неравенств, то есть это промежуток [9;11)
(x<5) или (x принадлежит [9;11)) - это равносильно объединению множеств, то есть x будет из промежутка (-oo;5)U[9;11)
Целые положительные числа из данного интервала:
1,2,3,4,9,10 - 6 чисел
Ответ: 6
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.
Пример:
Введите предложение: Написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное
Слово с наибольшим количеством гласных: ПРЕДЛОЖЕНИИ