Дано число n ( больше 0) найти сумму 1-0.5+0.25-0.125+...n паскаль абс работа на использование цикла вайл, фор или рипит помогите буду блогодарен
Дано число n (>0) найти сумму 1-0.5+0.25-0.125+...n паскаль абс работа на использование цикла вайл, фор или рипит помогите буду блогодарен
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы