//PascalABC.Net 3.2
function f(n: integer):=3*n-1;
begin
var sum:=0;
for var i:=1 to 60 do sum+=f(i);
write (sum);
end.
0.125×1024=128байт 128×8=1024бит
А)111001111;0717;<span>1CF
б)</span>10010111001;02271;<span>04B9
в)</span>101101010;0552;<span>16A
г)</span>111101010101;07525;<span>0F55
д)</span>10110001011011;026133;<span>02C5B</span>