Pascal, цикл while или repeat

1+1/2!+1/4!+1/6!+ ...

Question

Информатика

Созонт

18 сентября, 05:02

Pascal, цикл while или repeat

1+1/2!+1/4!+1/6!+ ...

+4

Ответы (2)

Знаете ответ?

Емеля · Answer 1

Program n1;

var i, n, p: integer;

y: real;

begin

write ('введите кол-во слагаемых: ') ;

readln (n) ;

i:=1;

y:=1;

p:=1;

while i
p:=p * (2*i) ;

y:=y+1/p;

i:=i+1;

end;

writeln (y:2:10) ;

end.

Граша · Answer 2

Var

i, n:integer;

p, s:real;

begin

Write ('n=') ; Read (n) ;

s:=1;

i:=1;

p:=1;

while i
p:=p*2*i * (2*i-1) ;

s:=s+1/p;

i:=i+1

end;

Writeln ('S=', s)

end.

Pascal, цикл while или repeat1+1/2!+1/4!+1/6!+ ...

Pascal, цикл while или repeat

1+1/2!+1/4!+1/6!+ ...