1) вводится число n, высислить 2^n 2)вводится число n, вычислить 2^1+2^2+2^n. Created by gifgu. informatika-ru

1) вводится число n, высислить 2^n 2)вводится число n, вычислить 2^1+2^2+2^n...

Verified answer

1.1.
var n,i,st:integer;
begin
write('n = ');
readln(n);
st:=1;
for i:=1 to n do st:=2*st;
writeln('2^',n,' = ',st);
end.

1.2.
begin
var n:=ReadInteger('n =');
writeln(power(2,n));
end.

Пример:
n = 7
128

2.
var n,i,st,s:integer;
begin
write('n = ');
readln(n);
st:=1; s:=0;
for i:=1 to n do
begin
st:=2*st;
s:=s+st;
end;
writeln('s = ',s);
end.

Пример:
n = 7
s = 254

0 votes Thanks 0

petuchpetya 1)
var
  n, i, ss : longint;
begin
  readln (n);
  ss:=1;
  for i:=1 to n do
  begin
  ss:=ss*2;
  end;
  writeln (ss);
end.

2)
var
  n, i, ss, sum: longint;
begin
  readln (n);
ss:=1;
  for i:=1 to n do
  begin
  ss:=ss*2;
sum:=sum+ss
  end;
  writeln (sum);
end.

0 votes Thanks 0

Answers & Comments

Verified answer

srochno znayu chto legko vremeni malo ostalos

zadanie napishu v kommentarii

13 i 0870f5cec5c7f6ca487cc287fc54be515 59704

рекомендуемые вопросы

Helpful Links

Helpful Social