Напишите на языке Паскаль наиболее короткие алгоритмы вычисления а)у=х^12 , б)у=х^17 , в)у=х^20
Напишите на языке Паскаль наиболее короткие алгоритмы вычисления а)у=х^12 , б)у=х^17 , в)у=х^20
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы