дано число n (>0) найти сумму 1-0.5+0.25-0.125 + ... n паскаль абс работа на использование цикла вайл, фор или рипит помогите буду блогодарен

Question

Информатика

Жозефина

20 июня, 19:02

дано число n (>0) найти сумму 1-0.5+0.25-0.125 + ... n паскаль абс работа на использование цикла вайл, фор или рипит помогите буду блогодарен

+1

Ответы (1)

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

Акуля · Answer 1

Var n, i:integer;

s, k:real;

begin

k:=0.5;

writeln ('vvedy n') ;

readln (n) ;

for i:=1 to n do

k:=k + (k*0.5) ;

s:=1-k;

writeln (s:5:5) ;

end.