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

Ответы 2

  • var

    n:byte;

    begin

    repeat

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

    until (n<=30);

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

    readln;

    end. 

     

  • 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.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years