var i,x,y:integer;
b:boolean;
begin
readln(x,y);
for i:=2 to x do
if (x div i=x/i) and (y div i=y/i) then begin
x:=x div i;
y:=y div i;
end;
writeln(x,' ',y);
end.
1. двоичный код :
00011100010110100011011000011100010111000011110000011100010111100011100
0000111000101110000110110000111000101110000110010000111000101110000111110
0001110001011110001110000001110001011100010101000001110001011100010111000
0011100010111000011011000011100010111000011001000101000000111000101100000
1100100001110001011100001110100001110001011100001111000001110001011100010
1011000011100010111000100001000011100010111000101101000011100010111000011
0010001010000001110001011010001100100001110001011110001110000001110001011
1100011010000011100010111000101011000011100010111000011001000011100010111
0001011010000111000101110001011100000111000101110000110110000111000101110
00101101000011100010111000011001
2.Десятичный код:
144527144630144728144627144625144631144728144642144646144627144625201444
2514462914463014464314463314464514462520144525144728144726144643144625144
645144646144627144645144625
Log2(4000000000)=4 байта на точку.
800*600*4=1920000 байт на картинку или 1920000*8=15360000 бит.
15360000/51200=300 секунд
