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

Question

Информатика

Самсон

29 сентября, 22:39

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

+3

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