<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b):=ReadInteger2('Введите два числа через пробел:');
if (a>=0) and (b>=0) then (a,b):=(a*10,b*10)
else
if (a>=0) xor (b>=0) then (a,b):=(a*100,b*100)
else
if (a<0) and (b<0) and not a.Between(-7,-3) and
not b.Between(-7,-3-1) then (a,b):=(a*1000,b*1000)
else (a,b):=(a*10000,b*10000);
Println(a,b)
end.
N = 256; K = 2*80*32;
N = 2^i ; I = i*K;
256 = 2^8; I = 8*2*80*32 = 40960
Берём общее кол-во пикселей (273 * 490 = 133770), умножаем на lb(4096) (это количество бит для записи этого числа, в нашем случае 12), получим 1605240 бит, делим на 20, получаем 80262 бит / сек :)