Var h:integer; begin h:=40; line(window.Width-300,window.Height,window.Width-300,0); floodfill(window.Width-20,20,clGray); rectangle(window.Width-200,100,window.Width-100,300); floodfill(window.Width-150,140,clGold); while h<>window.Height-40 do begin circle(window.Width div 2,h-40,10); floodfill(window.Width div 2,h-40,clGreen); circle(window.Width div 2,h,30); floodfill(window.Width div 2,h,clRed); rectangle(0,0,window.Width div 2+40,window.Height); floodfill(window.Width div 2+40,window.Height,clWhite); inc(h); end; circle(window.Width div 2,h-40,10); floodfill(window.Width div 2,h-40,clGreen); circle(window.Width div 2,h,30); floodfill(window.Width div 2,h,clRed); end.
var c, k, n: integer; begin writeln('Введите процент: '); readln(n); while k < 100 do begin k := k + n; inc(c); end; writeln(c * 12, ' мес.'); <span>end.</span>
Особенность заключается в разложении светового потока на цветовые составляющие. В компьютере используется система формирования цвета RGB (RedGreenBlue).