1)16*256*80*64*2=41943040 байт41943040 байт=41943040/1024 Кбайт=40960 Кбайт=40960/1024 Мбайт=40 Мбайт1 Гбайт-40 Мбайт=1024 Мбайт-40 Мбайт=984 Мбайт
<span>2)54272000бит/1024000бит=53 сек
лови...)</span>
113(10) — 1110001(2)
36(8) — 11110(2)
C52(16) — 110001010010(2)
Program pr1;
var x,y, nod:integer;
begin
readln(x,y);
repeat
if x > y then x:=x mod y
else y:=y mod x
until x*y=0;
nod:=x+y;
writeln('НОД=', nod);
<span>end.
program pr2;
var i,n,sum:integer;
begin
readln(n);
sum:=1;
for i:=1 to n do
if i mod 2 = 0 then inc(sum,i);
writeln(sum);
<span>end.</span></span>