Семь раз получаем остаток от деления на 10 и делим число на 10, тип числа целый, чтобы при каждом делении было округление
int n = ЧИСЛО;
int a[7];
for (int i = 0; i < 7; ++i) {
a[i] = n % 10;
n /= 10;
}
Var a,n,i,ans:integer;
begin<span>
readln(a);</span><span>
readln(n);</span><span>
i:=0;</span><span>
ans:=1;</span><span>
while(i<n) do</span><span>
begin</span><span>
ans:=ans*a*a;</span><span>
inc(i);</span><span>
writeln(ans);</span><span>
end;
</span>end.
<span>Так? По тести)</span>
Ответ:
Объяснение:
Просто подставляешь формулы эти в ячейку, прописываешь в скобках какие ячейки нужно подсчитать. И вуаля , готово :)