Выведите число 2^N(в степени N). N не превосходит 30
Выведите число 2^N(в степени N). N не превосходит 30
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы