Т > Testing.CircleINT Т Integer arithmetic circles : (К 2 2У <-r%=Ё(512):h%=Ё(1280):v%=Ё(1024):c%=Ё(8)-1 F>Г Ё(2)=1 Рcircle(h%,v%,r%,c%) ▀ Рfilledcircle(h%,v%,r%,c%) PЩ ё ZщРcircle(h%,v%,r%,c%) dО 29,h%;v%;:Ф 0,c% nx%=r%:y%=0 x И z%=x%/2 ┌У ▄П 69,x%,y% √П 69,x%,-y% ═П 69,-x%,-y% ╙П 69,-x%,y% ЄП 69,y%,x% ЎП 69,y%,-x% хП 69,-y%,-x% рП 69,-y%,x% э И y%=y%+1 ФИ z%=z%-y% ПГ z%<0 ▄ z%=z%+x%:x%=x%-1 ЗЩ x%