1

Тема: Перевірте будь-ласка программу

Дана формула(фото прикріплене). Написав программу,не впевнений,що математично правильно все виразив,перевірте будь-ласка.

Program rrr;
var x,n,k : integer;
    a : real;
Begin
a:=0;
while x<=10 do
Begin
n:=1;
k:=1;
while n<=x do
 Begin
 k:=k*n;
 n:=n+2;
 end;
a:=a+5*sqr(x)/k;
x:=x+1;
end;
writeln(a);
end. 

2

Re: Перевірте будь-ласка программу

magnevitis, одній проблемі - одна тема. Якщо почали тут питати - не слід повторювати це в іншій.

I belong to the Dead Generation.
Подякували: koala1