1) вводится число n, высислить 2^n 2)вводится число n, вычислить 2^1+2^2+2^n
1) вводится число n, высислить 2^n
2)вводится число n, вычислить 2^1+2^2+2^n
Гость
Ответ(ы) на вопрос:
Гость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
Гость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.
Не нашли ответ?
Похожие вопросы