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

shishckinayuly shishckinayuly    1   18.08.2019 18:30    0

Ответы
tomlinsondarya tomlinsondarya  05.10.2020 03:24
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика