Почему же нет операции?
я знаю как минимум 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>
Для случайных чисел:
var
a: array[1..5] of integer;
i: integer;
begin
randomize;
for i:=1 to 5 do
a[i] := random(100);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.
Для ручного заполнения:
var
a: array[1..5] of integer;
i: integer;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.
Для решения данной задачи необходимо построить дерево и посчитать, сколько отрезков приходится для каждой буквы.
Например, исходя из рисунка, для буквы "О" есть 1 отрезок - это 0 (итого 1), а для буквы "Е" 2 отрезка - это 1 и 0 (итого 2), для буквы "П" - это 1, 1, 0 (итого 3). Затем необходимо сложить все отрезки и посчитать <span>минимальную общую длину кодовых слов для всех семи букв.</span>