Var
x, y, z: integer;
begin
read(x, y, z);
if (x = y) and (y = z) and (x = z) then
begin
x := 3 * x;
y := 3 * y;
z := 3 * z;
write(x, y, z);
end
else
if (y = z) then
begin
x := -x;
y := -y;
z := -z;
write(x, y, z);
end
else
begin
x := 222;
y := 222;
z := 222;
write(x, y, z);
end;
end.
4. В первом имени первая буква М - согласная. Условие верно.
В остальных именах это условие неверно, т.к. они начинаются все с гласной буквы.
Теперь проверим второе условие.
Вторая буква должна быть гласной, это не выполняется для последних трех имен, следовательно, они не удовлетворяют и второму условию.
Ответ: 1.
7, 8, 9, 10, 11 - всего 5 штук
В начале S=0 и дальше 5 раз прибавляем 11
Вывод:
Ответ 55