Вслучае с усложнённым теперь программа не только будет просить пользователя ввести число для возведения в степень и саму программа будет должна осуществлять дополнительную проверку на то больше результат по модулю, чем число 2147483647 или нет, если да, то об этом пользователя («опасность! результат больше чем … »)комментарий по ходу выполнения программы давать вразумительный и обязательный. пример работы программы такой: на экране появляется фраза типа «введите целое число» введите его степень» юзер вводит два целых числа (пускай 5 и 30) программа сообщает: «внимание! результат 5^30 выходит за пределы типа integer, ! тем не менее, ваш результат равен ….» или если всё в порядке, то программа сообщит пользователю: «всё ок. результат: …»

162

485

Посмотреть ответы 3

Ответы на вопрос:

nikzyk

Информатика

4,7(17 оценок)

Pascalabc.net 3.3.5, сборка 1650 от 01.04.2018 внимание! если программа не работает, обновите версию! begin var (a,b): =readinteger2('введите целые основание и показатель степени: '); var biga: =biginteger(a); var r: =biga**b; if r> integer.maxvalue then begin write($'внимание! результат {a}^{b} выходит за пределы типа integer, '); writeln(integer.maxvalue, '! '); writeln('тем не менее, ваш результат равен ',r) end else writeln($'все ок. результат {a}^{b}={r}') end. примеры введите целые основание и показатель степени: 12 6 все ок. результат 12^6=2985984 введите целые основание и показатель степени: 5 30 внимание! результат 5^30 выходит за пределы типа integer, ! тем не менее, ваш результат равен 931322574615478515625

sveta7185684p0dufr

Информатика

4,5(95 оценок)

//pascalabc.net //версия 3.3, сборка 1634 (14.02.2018) begin var (n,i): =readinteger2('введите целое число и его степень-> '); if n**i> integer.maxvalue then writelnformat('внимание! результат {0}^{1} выходит за пределы типа integer, ! тем не менее, ваш результат равен {2}',n,i,biginteger(n**i)) else println('всё ок. результат: ',n**i); end.