Операторы цикла 2
Посмотрите пожалуйста еще эту программу, мне ее тоже нужно решить через оператор цикла
1. Дано натуральное число N . Вычислить: на картинке пример
uses crt;
var n,i:integer;
s,z:real;
begin
write('n=');
readln
;
s:=1;
z:=1;
for i:=2 to n do begin
z:=-z/2;
s:=s+z;
end;
write('S=',s:0:5);readln
end.
Правильно ли решено?если нет, то помогите пожалуйста
Посмотрите пожалуйста еще эту программу, мне ее тоже нужно решить через оператор цикла
1. Дано натуральное число N . Вычислить: на картинке пример
uses crt;
var n,i:integer;
s,z:real;
begin
write('n=');
readln
;s:=1;
z:=1;
for i:=2 to n do begin
z:=-z/2;
s:=s+z;
end;
write('S=',s:0:5);readln
end.
Правильно ли решено?если нет, то помогите пожалуйста
