Lena
Напишите программу на языке паскаль которая находит значение суммы ряда xn=2n.
N задается с клавиатуры. n возле х внизу справа. 2 в степени n
N задается с клавиатуры. n возле х внизу справа. 2 в степени n
Sum = 2° + 2¹ + 2² + 2³ + … + 2ⁿ
var N, i : Byte;
Sum : Longint;
begin
Write('N = '); ReadLn(N);
Sum := 1;
for i := 0 to N do Sum := Sum shl 1;
Dec(Sum);
WriteLn(Sum);
end.
Сумма такого ряда — есть 2 в степени n минус 1…
var
a, i, n, sum: integer;
begin
write('Введите n ');
readln(n);
a:= 1; sum:= 1;
write('Сумма ряда: 1');
for i:= 1 to n do
begin
a:= a*2;
write('+', a);
sum := sum + a;
end;
writeln('=', sum);
end.