Question

Программисты, помогите!!!! нужно написать программу на паскале. дано натуральное число n. Возвести в степень n число 2. С Longint и integer.

Answer 1

var
  n, i: longint;
  a: int64;

begin
  readln(n);
  a := 2;
  for i := 2 to n do
    a := a * 2;
  writeln(a);
end.

Answer 2

program z1;
var a,n:longint;
c:real;
begin
writeln('Введите N=');
read(n);
a:=2;
c:=power (a,n);
writeln(c);
end.