Free Pascal!!

[Vika_0_0]

(9+(9+⋯+(9+9^2 )^3…)^(m-1) )^m

Число m ввести с клавиатуры

[Hacker19_90]

Не кросспостите!
Это запрещено!
Поищите по форуму такое решалось уже!

[Vika_0_0]

не решалось!

[TinMan]

А мне понравился крик души - освободите Паскаля!! ))

Это выражение мне представляется не совсем self-consistent.. (Опечатка?) IMHO, должно быть так:
(9+(9+⋯+(9+(9+(9+1)^1)^2 )^3…)^(m-1) )^m
- и тогда выражение будет определено для всех неотрицательных m. В том виде, как оно написано, можно использовать только 2<=m (даже распространение на m=1 выглядит спорным для меня). Но это влечет за собой изменение значений функции..
Я приведу рекуррентную функцию, реализующую оригинальный вариант (просьба не кормить ее значениями m меньше 2)

function F(m: integer): extended;
begin
  if m=2 then F:= 100 else F:= exp(m*ln(9+F(m-1)))
end;

Но вообще - неблагодарная это задача, кодить такую быстрорастущую функцию. Даже при ее типе double максимум значений m, при которых нет переполнения равно всего 5, а значение функции при этом имеет десятичный порядок 122 . Тип extended продвигает значения m всего на один (до 6), а значения функции имеют порядок 722 :LOL: