profile
Опубликовано 4 года назад по предмету Информатика от outlaw

Выведите число 2^N(в степени N). N не превосходит 30

  1. Ответ
    Ответ дан Mishka28

    var

    n:byte;

    begin

    repeat

    write ('N = ');readln(n);

    until (n<=30);

    writeln (exp(n*ln(2)):0:0);

    readln;

    end. 

     

  2. Ответ
    Ответ дан Alphaeus

    Program outlaw;
    uses crt;
    var
      n: real;
    begin
      write('Введите число N ');
      readln(n);
      writeln('*** alphaues is thinking... ***');
      if N<=30 then
        writeln('2 в степени N равнo ',power(2,n))
      else  writeln('N>30, введите другое число!!!')
    end.