Номер 2.
uses GraphABC;
begin
circle(300,200,100);
circle(300,200,90);
circle(300,200,80);
circle(300,200,70);
circle(300,200,60);
circle(300,200,50);
circle(300,200,40);
circle(300,200,30);
circle(300,200,20);
circle(300,200,10);
<span>end.
Номер 1.
uses GraphABC;
begin
circle(25,100,25);
circle(75,100,25);
circle(125,100,25);
circle(175,100,25);
circle(225,100,25);
circle(275,100,25);
circle(325,100,25);
circle(375,100,25);
circle(425,100,25);
circle(475,100,25);
circle(525,100,25);
circle(575,100,25);
<span>end.</span></span>
Имеем 32768 байт
256*128 точек = 32768 "ячеек" памяти, где 1 ячейка = 1 точка.
Легко видеть, что количества "ячеек" и памяти - совпадают.
Следовательно - каждая точка будет иметь цвет, определяемый одним байтом.
<span>Байт, в 10-тичной системе принимает 256 значений (от 0 до 255)</span>
Program ZZZ;
var a, b, c : integer ;
begin
WRITELN ('Введите значения коэффициентов квадратного трехчлена a,b,c');
readln (a,b,c);
D:= b*b - 4*a*c;
WRITELN ('Дискриминант квадратного трехчлена равен ',D);
end.
1,2,3,4,5,6,7
Всегда пожалуйста.
В интернет и посмотри пропроывоаопл