1.
const
quantity = 18;
var
res, d: integer;
function sum(a, b: integer): integer;
begin
sum := a + b;
end;
begin
writeln('Введите число D: ');
readln(d);
res := sum(d, quantity);
writeln(res);
end.
2.
const
x = 1.0;
var
square, radius, Pi_num: real;
function ArcTan(X: Real): Real;
begin
ArcTan := (sin(x) / cos(x));
end;
function ray(square: real): real;
begin
ray := sqrt(square / Pi_num);
end;
begin
Pi_num := ArcTan(x) * 2;
writeln('Введите площадь окружности: ');
readln(square);
radius := ray(square);
writeln(radius);
end.
32 Кбайта
Объяснение:
Количество цветов в изображении вычисляется по формуле: 
, где N - количество цветов (кол-во цветов), а i - объем памяти, занимаемый ОДНИМ пикселем (бит).
В нашем случае цвета всего 2 (N=2), из чего следует: 
, то есть i=1 биту.
Количество занимаемой информации вычисляется по формуле: 
, где I - общий объем занимаемой информации (бит), k - кол-во пикселей для кодирования (пикс.), i - объем памяти для кодирования ОДНОГО пикселя (бит).
В нашем случае пикселей в изображении 
. Подставим в формулу данные и получим: 
бит информации.
1 байт = 8 =
бит
1 Кбайт = 
байт = 
бит.
Кбайта.
