Если числа небольшие и X в N степени умещается в longint, то можно в цикле от 1 до n умножать на x
var i,x,n:integer;
l:longint;
begin
readln(x,n);
l:=1;
for i:=1 to n do
l:=l*x;
write(l);
end.
Итак:
на один символ было 16 бит, стало 8, таким образом:
8x=16x-240, отсюда:
x=30 символов
Прислів"я.
Більше діла - менше слів.
Маленька праця краще за велике безділля.
Праця чоловіка годує, а лінь марнує.
Хочеш більше знати-треба менше спати.
Ну, если речь идет о поразрядной импликации -91 в дополнительном коде и 15, то, вроде, правильно.
Но меня вопрос насчет необходимости учета знаковых разрядов. В дополнительном коде они должны быть, а в Вашем решении их нет.
Поэтому было бы хорошо увидеть не только решение, но и само задание.
