// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var s1:=new Stack<integer>;
var s2:=new Stack<integer>;
foreach var e in Range(1,10) do s1.Push(e);
s1.Println;
foreach var e in Range(20,25) do s2.Push(e);
s2.Println;
foreach var e in s2.Reverse do s1.Push(e);
s1.Println
end.
<u><em>Тестовое решение:</em></u>
10 9 8 7 6 5 4 3 2 1
25 24 23 22 21 20
25 24 23 22 21 20 10 9 8 7 6 5 4 3 2 1
N=16 цветов
N=2^i;
16=2^4 => i=4 бит на пиксель
k=<span>25×25 = 625 пикселей
I=k*i=</span><span>625*4=2500 бит</span>
1) 0,625Кбайт
2) 112,5Кбайт
3) 12890,625Кбайт
4) прибл.48 сек
5) 640 * 480 *5 = 1536000(бит)/8/1024=187,5Кбайт