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.

Answer 3

Конечно, я могу помочь вам написать программу на Pascal для возведения числа 2 в степень n с использованием типов данных Longint и Integer. Вот пример программы:

pascalCopy code
program PowerOfTwo;

uses
  SysUtils;

function PowerOfTwoInteger(n: Integer): Integer;
var
  result: Integer;
begin
  result := 1;
  while n > 0 do
  begin
    result := result * 2;
    Dec(n);
  end;
  PowerOfTwoInteger := result;
end;

function PowerOfTwoLongint(n: Longint): Longint;
var
  result: Longint;
begin
  result := 1;
  while n > 0 do
  begin
    result := result * 2;
    Dec(n);
  end;
  PowerOfTwoLongint := result;
end;

var
  n: Longint;
  resultInteger: Integer;
  resultLongint: Longint;

begin
  Write('Введите натуральное число n: ');
  ReadLn(n);

  if n < 0 then
  begin
    WriteLn('Ошибка: n должно быть натуральным числом.');
    Exit;
  end;

  resultInteger := PowerOfTwoInteger(n);
  resultLongint := PowerOfTwoLongint(n);

  WriteLn('2 в степени ', n, ' (с использованием Integer) = ', resultInteger);
  WriteLn('2 в степени ', n, ' (с использованием Longint) = ', resultLongint);
end.

Программа предоставляет две функции - PowerOfTwoInteger и PowerOfTwoLongint для возведения числа 2 в степень n с помощью типов данных Integer и Longint соответственно. Затем программа запрашивает у пользователя значение n, вычисляет результаты и выводит их на экран.