Var
a, n, i: integer;
r: longint;
begin
r := 1;
readln(a, n);
for i := 1 to n do
r := r * a;
write(r);
end.
Function func1(a As Double) As Double
Dim i As Integer, b As Double
i = 1 - Sgn((Abs(a) - a) / 2)
b = Sqr(a * i)
a = a * 2 + i * (b - 2 * a)
func1 = a
End Function
Program n1;
var y: real;
x: integer;
begin
write('введите x: ');
readln(x);
if x mod 2=0 then y:=x*x else y:=x*x*x;
writeln(y);
end.
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),1,200); a.Println;
Writeln('Ср.арифметическое кратных 3: ',
a.Where(t->t mod 3=0).DefaultIfEmpty.Average)
end.
<u>Пример</u>
n= 15
185 103 5 33 116 167 189 36 79 110 188 12 26 11 10
Ср.арифметическое кратных 3: 67.5
<em>TYPE</em>
<em> TPoint = Record x, y: Real; End;</em>
<em>VAR</em>
<em> a, b, c, d: TPoint;</em>
<em />
<em> Function Pl(a, b, c: TPoint): Real;</em>
<em> Var v1, v2: TPoint;</em>
<em> Begin</em>
<em> v1.x := a.x - b.x; v1.y := a.y - b.y;</em>
<em> v2.x := a.x - c.x; v2.y := a.y - c.y;</em>
<em />
<em> Pl := Abs(v1.x * v2.y - v1.y * v2.x) / 2;</em>
<em> End;</em>
<em />
<em>BEGIN</em>
<em> Read(a.x, a.y, b.x, b.y);</em>
<em> Read(c.x, c.y, d.x, d.y);</em>
<em />
<em> Write(Pl(a, b, c)+Pl(a, c, d));</em>
<em>END.</em>