Напишите на языке Паскаль наиболее короткие алгоритмы вычисления а)у=х^12 , б)у=х^17 , в)у=х^20
Answers & Comments
ElternaL1ty
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.
0 votes Thanks 0
ElternaL1ty
С чего это? Короткая рекурсивная функция, короткая основная программа, выводит все три задания(а,б,в) разом.
Answers & Comments
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.