|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.02.2017, 11:44 | #31 |
Новичок
Джуниор
Регистрация: 14.02.2017
Сообщений: 1
|
можно попробовать ввести массив... с ним можно легко работать, переставляя carry...
А впрочем, вот программа на языке Pascal ABC: program stepen; var j, i, len, carry, n, a: integer; d: array [1..7000] of integer; begin read(a); read(n); d[1] := 1; len := 1; for j := 1 to n do begin carry := 0; for i := 1 to len do begin carry := d[i] * a + carry; d[i] := carry mod 10; carry := carry div 10; end; if carry <> 0 then begin len := len + 1; d[len] := carry; end; end; for i := len downto 1 do write(d[i]); end. Последний раз редактировалось Ника Романова; 19.02.2017 в 11:56. |
28.02.2018, 00:19 | #32 |
Новичок
Джуниор
Регистрация: 28.02.2018
Сообщений: 1
|
|
28.02.2018, 07:48 | #33 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Поскольку n - это счетчик цикла, должен быть целым числом
Код:
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Возведение числа в степень | Roberto | Помощь студентам | 9 | 05.04.2008 09:50 |
Возведение в степень | Stanislav | Общие вопросы Delphi | 10 | 05.12.2007 23:34 |
Возведение в степень... | Sota | Общие вопросы C/C++ | 7 | 18.07.2007 17:05 |
Задачи по массивам + возведение действительного числа в действительную степень | springgirl | Помощь студентам | 2 | 24.04.2007 03:26 |
Delphi Возведение в степень | Luska | Помощь студентам | 6 | 23.04.2007 17:51 |