<span>AB=10*161+11*160=160+11=171</span>
begin
var (m, p) := ReadInteger2('Укажите число и показатель степени:');
if p = 0 then
Write(1)
else
begin
var z := Sign(p);
p := Abs(p);
var r: int64 := m;
for var i := 2 to p do
r *= m;
if z > 0 then
Write(r)
else
Write(1 / r);
end;
end.
==PascalABC.NET==
K=16×32×40
i=16
I-?
I=K×i=16×32×40×16=327680 битов
16*15 = 240 символов на странице
0,25 килобайт = 1024/4 = 256 байт
При одном байте на символ (не всегда так!!!)
получится 256 символов, 240 на первом листе и 16 на втором.