<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
uses GraphABC;
begin
Window.SetSize(800,600);
Draw(x->x=1?1.0:10/(x-1)+5*Sin(x),-20.0,20.0)
end.
<u>Результат приведен во вложении</u>
16 байт = 16*8 бит = 128 бит
Program gt;
var i,p:int64;
begin
p:=1;
for i:=1 to 1000 do
begin
if(i mod 2=1)and(i mod 13=0)then p:=p*i;
end;
writeln(p);
end.
512*256 = 131072 пикселя (2^9 * 2^8 = 2^17 пикселей)