условие: первая буква -гласная
если да, то вывести слово без первой буквы, иначе-оставить без изменений
Это структура
.................
Использована формула
var
f, i: longint;
begin
f := 1;
i := 2;
while f < 3669972 do
begin
f := 2 * (f + i);
i := i + 1
end;
Writeln('m=',i)
end.
Результат выполнения программы:
m=21
По второй задаче 8+6=14
Здесь я предлагаю вариант только с функцией ЕСЛИ. Может подойдёт.