[Stohan]

Поржать, но сделал

Код:

summ :=1 ;
  for i := 5 to 25  do
   summ := summ * (1/(5+2*i));
  writeln (FloatToStrF(summ,fffixed,5,40));
  for i := 1 to 100 do
     if i = (2*i-3)  then
     writeln ('Chislo:',i);
readln;

Админ: Не забываем про теги!