<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-45,45); a.Println;
Swap(a[0],a[9]); a.Println
end.
<u>Пример</u>
32 -1 21 17 13 11 -7 14 -7 4
4 -1 21 17 13 11 -7 14 -7 32
Ответ:
От точки А всегда идёт один путь. поэтому можно отметить возле точки А 1. Точка В. К точке В идёт только одна стрелочка от точки А, а у точки а мы отметили 1, значит у В тоже будет 1. точка D. К ней идут две стрелочки от А и от В мы отметили что у точки А 1 и у точки В 1, значит точка D будет 1+1 равно 2. точка Е. К ней идут стрелочки от А и от D. A это 1 а D это 2 значит точка Е имеет 1+2 равно 3 пути. Точка С. К ней идут стрелочки от А и Е. А 1 Е 3 значит С будет 1+3 равно 4 и так дальше до конечной точки надо решать
Объяснение:
В качестве примера я брал последнюю схему
Var a,b,c:word;
begin
read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin write('Est');
if (sqr(a)>sqr(b)+sqr(c)) or (sqr(c)>sqr(b)+sqr(a)) or (sqr(a)>sqr(c)+sqr(b)) then write ('Tupoy')
end
else write('Net');
end.
<span>512 000*(4*60) = 122 880 000 бит
<span>122880000 / 8 / 1024 = 15 000 килобайт</span></span>