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

Question

Информатика

Гея

29 сентября, 04:01

Составьте на паскале программу возведения в 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.