Напишите на языке Паскаль наиболее короткие алгоритмы вычисления а) у=х^12, б) у=х^17, в) у=х^20

Question

Информатика

Ниноха

29 октября, 15:07

Напишите на языке Паскаль наиболее короткие алгоритмы вычисления а) у=х^12, б) у=х^17, в) у=х^20

+4

Ответы (1)

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

Феона · Answer 1

Program p1;

var x, i, num:longint;

function stepen (x, n:integer) : longint;

begin

if n=1 then stepen:=x

else stepen:=x*stepen (x, n-1) ;

end;

begin

readln (x) ;

writeln (stepen (x, 12)) ;

writeln (stepen (x, 17)) ;

writeln (stepen (x, 20)) ;

end.