Думаю это будет несложно.
Само задание в файле-картинке
Кто решит, тому подарок -семизначный ICQ
За призом обращаемся в <cut>
Заранее благодарен
! | читаем правила форума |
М | Перенести в задачи на заказ ? |
! | читаем правила форума |
М | Перенести в задачи на заказ ? |
const
eps = 10E-4;
var
x, x2, s, next: Single;
fact, zn, i, sign: LongInt;
begin
x := 1.56;
x2 := x * x;
zn := 3;
fact := 1;
sign := 1;
s := 0;
i := 1;
repeat
next := sign * x / (fact * zn);
s := s + next;
zn := zn + 4;
inc(i, 2);
fact := fact * (i - 1) * i;
x := x * x2;
sign := -sign;
until abs(next) < eps;
writeln(s:6:5);
end.