Дано целое число X и натуральное N. Составьте алгоритм вычисления X в степени N .Проверьте алгоритм трассировкой. Напишите программу на Паскале. ЧЕРЕЗ WHILE DO!!!!!!!!!
Answers & Comments
CrazyCoder
Решение вашей задачи. Вначале число, а потом степень
2 votes Thanks 4
danulpopov// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var (x,n):=ReadInteger2('x,n ='); var ans :=1; while (n > 0)do begin ans*=x; dec(n); end; Writeln(ans); end.
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
var (x,n):=ReadInteger2('x,n =');
var ans :=1;
while (n > 0)do
begin
ans*=x; dec(n);
end;
Writeln(ans);
end.
Пример:
x,n = 2 10
1024