//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(ReadInteger('x ='), -17, 17);
a.Println;
a.Transform(x -> -x);
a.Println;
end.
[33 / 8] = 4
33 - 4*8 = 1
Десятичное 33 в восьмеричном представлении = 41
<em>var a, b, n, i:integer;</em>
<em>begin</em>
<em> b:=-1;</em>
<em> for i:=1 to 10 do</em>
<em> begin</em>
<em> a:=a+b;</em>
<em> b:=b+3;</em>
<em> end;</em>
<em> writeln (a);</em>
<em>end.</em><span><em> </em></span>
Пусть S - ср.арифм. S := (x1 +x2)/2
k := k-1
i := i+1
пусть N - количество тетрадей, M - цена одной тетради, H - цена одной обложки, S - стоимость всей покупки, тогда S := (M+H)*N