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

2013-05-27T15:08:14+00:00

var

n:byte;

begin

repeat

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

until (n<=30);

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

readln;

end. 

 

2013-05-27T16:32:42+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.