Написать программу для возведения в степень

Question

Информатика

Христоня

7 декабря, 02:17

Написать программу для возведения в степень

+2

Ответы (1)

Знаете ответ?

Филя · Answer 1

Program p_2;

Var

z, a : Real; m : integer;

Function Step (n: integer; x:real) : real;

Var

i: integer; y: Real;

Begin

i:=1; y:=1;

While i<=n do

Begin

y:=y*x; I:=I+1;

End;

Step:=y;

End; {Конец функции}

Begin

Write (‘Введи степень и возводимое число’) ; Readln (Z, M) ;

F:=Step (m, z) ;

Writeln (z, ‘ в степени’, m, ‘=’, f) ;

End.