Ответ(ы) на вопрос:
ГостьProgram n1;
var n, t, S: real; i: integer;
begin
readln(n);
S:=1;
for i:=1 to n do
begin
t:=1/(exp(i*ln(2)));
S:=S*t;
end;
writeln(S);
end.
Не нашли ответ?
Похожие вопросы