3. запишите в свернутой форме следующие числами: а) а16=а*161+1*160+7*16-1+5*16-2= б) а10= 9*101+1*100+5*10-1+3*10-2= в) а16=f*161+5*160+7*16-1+d*16-2= г) а10= 1*101+5*100+4*10-1+7*10-2=

program first;

var z,d,k: integer;

begin

writeln('input z,d,k');

readln(z,d,k);

if (d> =z) then

d: =d-z

k: =k+1

writeln(d,'    ',k);

readln;

end.

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.

9 кбатй = 73728 бит (кбайт=8192 бит)

73728/1536=48сек

512*48=24576бит=3072 байт ( 1 байт = 8 бит)

пусть наше число а

ответ = а div 3(целая часть от деления на 3)

думаю код сам наберёшь