3. Не используя...

3. Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления а) y=x¹° б)y=x¹⁵ или а) y=x^10б)y=x^15

 

1)
var x,y1,y2:real;
begin
read(x);
y1:= exp(ln(x)*10);
y2:= exp(ln(x)*15);
writeln(y1);
writeln(y2);
end.
 
2)
procedure abc(var a,b:real);
var x:real;
begin
x:=a;
a:=b;
b:=x;
end;
var a,b,c:real;
begin
writeln('Vvedite a,b,c');
readln(a,b,c);
if a>b then abc(a,b);
if b>c then abc(b,c);
if a>b then abc(a,b);
write(a,' ',b,' ',c);
end.