Var i,a,c,b: integer; begin c: =1; writeln('введите число'); readln(a); writeln('введите степень'); readln(b); for i: =1 to b do c: =a*c; writeln (a, ' в сепени ',b,' =',c); end.
Спасибо
Ответ дал: Гость
минимально возможное число бит для десятичных цифр равно 4,значит инф объем = 150симв * 4бит =600 бит,
Популярные вопросы