Var a:array [1..12] of integer;
<span>i,sum:integer; </span>
<span>begin </span>
<span>sum:=0; </span>
<span>randomize; </span>
<span>for i:=1 to 12 do begin </span>
<span>a[i]:=random(10,99); </span>
<span>if a[i] mod 2 =0 then sum:=sum+a[i]; </span>
<span>end; </span>
<span>writeln('Сумма четных чисел массива = ',sum); </span>
<span>end.</span>
1.Подключается модуль, отвечающий за графику
2.Начало объявления переменных
3,Объявляется переменная "а", с числовым типом
4.Начало программы
5.Необходимо ввести значение переменной "а"
6.Перемещает указатель (начальную точку) на координаты а,1 где а - координата по оси Х, 1 - координата по оси Y
7.Рисует окружность с центром в точке x = а+а div 2,y = 1 где div целочисленное деление. То есть если а=5, то 5+5 div 2 будет равно 5. И третий параметр это радиус, то есть радиус равен а div 4.
8. Функция linto(x,y) рисует прямую линию в точку с координатами x и y. Причем рисует из точки, в которой указатель был до этого. То есть в данном случае из точки в центре окружности. Я думаю дальше можно догадаться, так как все функции описал. Программа написана на языке Pascal и она рисует что-то.
Во-первых, экономия памяти.
Во-вторых, надежное хранение копий нужной информации.
Var
i,min,max:integer;
a:array[1..70]of integer;
begin
for i:=1 to 70 do
begin
a[i]:=random(100);
write(a[i],' ');
if i=1 then min:=a[i]
else if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln;
writeln('Ответ: ',max-min);
<span>end.</span>
512x512 = 2^9 * 2^9 = 2^18 бит
256 = 2^8 = 8 бит
2^18 * 2^3 = 2^21 бит
2^21 : 2^13 = 2^8 = 256 кбайт