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

Question

Информатика

Ивася

2 января, 13:26

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

+5

Ответы (1)

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

Оксанка · Answer 1

Var i, a, c, b:integer;

begin

c:=1;

writeln ('Введите число') ;

readln (a) ;

writeln ('Введите степень') ;

readln (b) ;

for i:=1 to b do

c:=a*c;

writeln (a, ' В сепени ', b,' = ', c) ;

end.