Вычислить сумму ряда - Turbo Pascal (33558)

Формулировка задачи:

Дано натуральное n, действительное число x. Вычислить сумму ряда
Оригинал

Код к задаче: «Вычислить сумму ряда - Turbo Pascal (33558)»

textual
uses crt;
var n,i:integer;
    x,z,s:real;
begin
clrscr;
write('x=');
readln(x);
write('n=');
readln(n);
s:=0;
z:=1;
for i:=1 to n do
 begin
  z:=z*2;
  s:=s+abs(x-1)/z;
 end;
write('s=',s:0:3);
readln
end.

12   голосов, оценка 3.583 из 5


СОХРАНИТЬ ССЫЛКУ