Ответы и объяснения

2013-12-24T20:45:52+04:00
Var a,k,c:integer;
begin
read(a); c:=1;
for k:= 1 to a do
c:=c*2;
write(c);
end.
  • Sky09
  • профессор
2013-12-24T22:18:03+04:00
Uses crt;
var n:integer;
begin
     write('n='); readln(n);
     writeln('2^',n,'=',power(2,n));
end.