Составить программу возведения числа А в N степень

Question

Информатика

Симеон

1 июля, 09:01

Составить программу возведения числа А в N степень

+4

Ответы (1)

Знаете ответ на вопрос?

Люцина · Answer 1

Var num, deg: integer;

res: real;

i: byte;

begin

write ('Число: ') ;

readln (num) ;

write ('Степень: ') ;

readln (deg) ;

res : = 1;

i : = 0;

while i < abs (deg) do begin

res * = num;

inc (i)

end;

if deg < 0 then

res : = 1 / res;

writeln (res:10:5) ;

end.