Program z1;
var a,n:longint;
c:real;
begin
writeln('Введите N=');
read(n);
a:=2;
c:=power (a,n);
writeln(c);
end.
Почему же нет операции?
я знаю как минимум 2 способа
1) через формулу <span>exp(ln(X) * </span>Y<span>)
2) функция pow(X, Y);
но если у вас тема про циклы, видимо вам надо вручную посчитать степень. тогда опишу вам внутренности функции pow
res:=x;
for i:=2 to y do
<span>res:=res*x;
Вот полностью программа
Var res,x,i,y: integer;
Begin
writeln('Введите x');
readln(x);
writeln('Введите y');
readln(y);
res:=x;
for i:=2 to y do
res:=res*x;
writeln(res);
<span>readln();
end.</span></span>
</span>
говори слова и через каждый слог вставляй пирожки, Сразу говорю слова звезда не говори
2112(3) = 2*3^3 + 1*3^2 + 1*3^1 +2*3^0 = 2*27 + 9 + 3 + 2 = 68(10)