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

Question

Информатика

Вася

17 июня, 13:56

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

+5

Ответы (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.