Преобразуем условие в более понятное. Обозначаем: a=Первая буква согласная; b=Вторая буква согласная c=Третья буква гласная Тогда условие можно записать следующим образом: Перейдем к исходным обозначениям, учтя, что отрицание "гласная" есть "согласная", а отрицание "согласная" есть "гласная": (Первая буква гласная ИЛИ Вторая буква гласная) И Третья буква согласная. Можно сформулировать еще короче: "Первая ИЛИ вторая буква гласная, а третья обязательно согласная". Этому условию удовлетворяет только имя 4) Лидия - в нем вторая буква гласная, а третья согласная.
Var i,sum: integer;
Begin
i:=2;
while (i<=22) do
begin
write(i,' ');
i:=i+2
end;
End.
5)
Var i,sum: integer;
Begin
i:=5;
while (i<=20) do
begin
sum:=sum+i;
i:=i+1
end;
Writeln('Сумма чисел от 5 до 20 = ',sum)
End.
6)
Var i,pr: integer;
Begin
i:=8;
pr:=1;
while (i<=18) do
begin
pr:=pr*i;
i:=i+2
end;
Writeln('Произведение четных чисел от 8 до 18 = ',pr)
End.
7)
Var i: integer;
Begin
i:=10;
while (i<=65) do
begin
Write(i,' ');
i:=i+5
end;
End.