512 цветов это 2^9 т.е глубина цвета 9 бит
переведём объем в биты
3600*8=28800 бит
определим количество точек
28800/9= 3200 точек
Попробуй переделать вот эту программу под себя: (см. скриншоты)
Или вот я доработал программу: Выводятся 3 окружности , радиус которых убывает на 50 пикселей
Program n1;
<span>var a,b,c,s,p:real;
</span><span>begin
</span><span>readln(a);
</span><span>readln(b);
</span><span>readln(c);
</span><span>if (a+b>c) and (a+c>b) and (b+c>a) then
</span><span>begin
</span><span>p:=a+b+c;
</span><span>s:=sqrt(p*(p-a)*(p-b)*(p-c));
</span><span>writeln('периметр=',p);
</span><span>writeln('площадь=',s);
</span><span>end else
</span><span>writeln('треугольник не существует');
</span><span>end.</span>