Var
n:integer;
a:real;
begin
writeln('введите число и степень');
readln(a,n);
writeln('степень : ', exp(ln(a)*n));
writeln('корень: ',exp(ln(a)*(1/n)));
end.
<span>import java.util.*;
import java.lang.*;
import java.io.*;
import java.util.Scanner;
class Ideone {
public static void main (String[] args) throws java.lang.Exception {
System.out.println("Введите расстояние в метрах: ");
Scanner sc = new Scanner(System.in);
int m = sc.nextInt();
int sm = m * 100;
int dm = m * 10;
System.out.print(sm + " " + dm);
}
}</span>
PascalABC.net
var x,y:real;
begin
write('Введите x: ');
readln(x);
if (x>=-2) and (x<=-1) then y:=2*x+4;
if (x>-1) and (x<=1) then y:=2*x*x;
if (x>1) and (x<=2) then y:=-2*x+2;
if (x<-2) or (x>2) then
writeln('Функция не определена')
else writeln('f(x)=',y);
<span>end.</span>
Var
k, N: Integer;
begin
Write("N = ");
ReadLn(N);
k:=1;
Repeat
Dec(N);
k:=k * 2;
WriteLn(k - 1);
Until (N < 0)
end.
В) набор программ, используемых ну и т.д