Задача на турбо паскаль

[Apakov]

Числа Ферма вычисляется по формуле (2 в степени 2 в степени n) + 1, где n - положительное целое число. Например, 5 = (2 в степени 2 в степени 1)+1 =4+1. Найти все двузначные числа Ферма.

[arrowsf1]

Задаёшь цикл или рекурсию с формулой и проверяеш выход при числе больше чем 99
Элементарно написать
сказка детская 100 р
если сделаю заплатишь?????????

[Apakov]

нет) извени) помоги за так) очень надо)

[whatever]

arrowsf1, чет правда, если так заработать хочется - иди в фриланс. Чуть ли не насильно услуги навязываешь. Тем более дел тут на рыбью ногу.

function ferma(n:integer):real;
begin
  ferma:=2*exp(n*ln(2))+1;
end;
var
  i:integer;
  F:real;
begin
  i:=0;
  F:=ferma(i);
  while F<100 do
    begin
      if f>9 then write(F:2:0,' ');
      inc(i);
      F:=ferma(i);
    end;
  readln
end.

[Apakov]

Спасбо) все идеально) но понимаешь, мы в школе еще не проходили function) ты не мог бы объяснить это или попроще сделать?) а за задачу спс огромное)

[whatever]

В теле программы меняешь с F:=ferma(i); на F:=2*exp(i*ln(2))+1;
Функцию вообще удаляешь, после замены она уже не нужна.

P.S. эх, меня бы в школе такому учили... А то пятерку за четверть за перестановку винды ставили. Что, впринципе, логично, учитывая то, что препод в первую очередь физик, и только потом информатик (хотя на счет последнего вообще не уверен)

[Apakov]

Спасбо большое) очень выручил)

[whatever]

Нормально выручил... Только сейчас дошло, что правильно будет так:

var
  i:integer;
  F:real;
begin
  i:=0;
  F:=exp(i*ln(2));
  F:=exp(F*ln(F))+1;;
  while F<100 do
    begin
      if f>9 then write(F:2:0,' ');
      inc(i);
      F:=exp(i*ln(2));
      F:=exp(F*ln(2))+1;;
    end;
  readln
end.