Question

Здравствуйте! Помогите пожалуйста решить задачу с помощью Pascal

Answer 1

Ответ:

program pr1;

uses crt;

var

i,n:Integer;

s:Real;

function Pow(x:Integer; y:Integer) : Integer;

var

j,s1:Integer;

begin

s1:=1;

for j:=1 to y do s1:=s1*x;

Pow:=s1;

end;

begin

s:=1;

Writeln('Введите колличество аргументов типа 1/2^n.');

Write('n=');

ReadLn(n);

Write('S=1');

For i:=1 to n do

begin

s:=s+((Pow(-1,i))*(1/(Pow(2,i))));

Write('+(',Pow(-1,i),'*1/',(Pow(2,i)),')');

end;

Write('=',s);

readln;

end.

Объяснение:

Через цикл нужное количество раз прибавляешь к S 1/(2^i ) умноженное на -1^i, Что бы менять знак.