<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var imin:=a.IndexMin;
var b:=a[:imin]; b.Println;
var c:=a[imin:]; c.Println
end.
<u>Пример</u>
n= 17
98 34 -59 -23 -65 -46 -15 -88 31 48 13 -7 70 -8 -69 65 -65
98 34 -59 -23 -65 -46 -15
-88 31 48 13 -7 70 -8 -69 65 -65
<em>// PascalABC.NET 3.2, сборка 1427 от 24.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Pow(x,y:BigInteger):BigInteger;
begin
Result:=x;
for var i:=int64(2) to int64(y) do Result*=x
end;
begin
var x,y:integer;
Write('Введите натуральные х и у: '); Read(x,y);
if (x<=0) or (y<=0) then begin
Writeln('Неверный ввод'); Exit
end;
if x=1 then Writeln('Результат: ',y+1)
else begin
var x1:=Range(2,x).Aggregate(BigInteger(1),(a,b)->a*b);
Writeln('Результат ',Pow(x,y)+Pow(y,x1))
end
end.
<u>Пример</u>
Введите натуральные х и у: 5 8
Результат 2348542582773833227889480596789337027375682548908319870707290971532209025114608443463698998384768703032325601
<span>K=30*4^8=1440
</span>I=900 байт=7200 бит
<span>i =I/K=5 бит
</span>N=2^5=32 символа
<span>Ответ: 32</span>
I=a*b*i
1мб=800*600*i
1мб=
бит=8388608 бит
800*600=480000(на 1 страницу)
480000*2=960000(на 2 страницы)
i=
i=
i=9
Ответ: Можно использовать максимум 512 цветов