Нечем заняться? Помогите решить задачку на Pascal :)

Паскаль нынче не рулит.

Могу на пхп нарисовать :)

Спасиб, но нужен именно паскаль :)

по памяти:

м.б. наврал по exp...

Делать есть что, но Паскаль - это просто моя слабость. )))

Лови:

Program FromFine;
var
  i,n:integer;
  sum:real;
begin
  write('n=');
  readln(n);
  sum:=0;
  for i:=1 to n do begin
    sum:=sum+i*sqr(i)/(sqr(i)+1);
  end;
  write('summa=',sum:2:2);
  readln;
end.

Я извиняюсь что не в свой топик лезу, а можно мне завтра физ химию решить?

код рабочий

program n1;

uses crt;

var

n,k:integer;

sum:real;

function step(a,b:integer):longint;

var r:longint;

begin

r:=1;

while b>0 do begin

r:=r*a;

b:=b-1;

end;

step:=r;

end;

begin

clrscr;

writeln('введите число n');

readln(n);

for k:=1 to n do begin

sum:=sum+( (step(k,3)) / ((step(k,2)) + 1));

end;

writeln('сумма всех значений функции = ',sum:2:2);

readln;

end.

Мой тоже 100% рабочий, кстати. Я даже паскаль на компе зашла и там все запустила, проверила )) Заодно отрыла старые программки еще с универа и синтаксис вспомнила. ))

Спасиб большое всем троим :) Нужны будут услуги в подписи - сделаем со скидочкой ;-)

I love SEO, безусловно, на форуме физиков или химиков. Обращайтесь, хорошие люди есть везде.