составьте на паскале программу возведения в N-ую степень целого числа X

Question

Информатика

Евгений

19 марта, 23:14

составьте на паскале программу возведения в N-ую степень целого числа X

+5

Ответы (2)

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

Зарема · Answer 1

program Multy;

var i, n, x, mt:integer;

begin

write ('введите целое число X ') ;

readln (x) ;

write ('введите степень N ') ;

readln (n) ;

mt:=x;

for i:=1 to (n-1) do

begin

mt:=mt*x;

end;

writeln (x,' в степени ', n,' равно ', mt) ;

end.

Никитьич · Answer 2

program power;

var i, n, x, res:integer;

begin

readln (x, n) ;

res:=x;

for i:=1 to (n-1) do

begin

res:=res*x;

end;

writeln (res) ;

end.