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

Question

Информатика

София

19 сентября, 00:55

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

+5

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