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

Question

Информатика

Веруля

18 марта, 15:40

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

+1

Ответы (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.