Таблица истинности - в прилагаемом файле.
2 Кбайт = 2*1024 байт = 2048 байт
128 бит = 128/8 байт = 16 байт
2048+16 = 2064
Правильно или нет не знаю
Вот хоть бы указывали язык, ей богу.
Паскаль я не знаю, но постарась помочь чем смогу
примерный алгоритм таков
var
space:integer; {Расстояние между квадратами и границами}
a : integer; {сторона квадрата}
rows,columns:integer;{количество строк, столбцов}
i,j:integer;
begin
{Инициализируйте переменные уж как-нибудь сами}
For i:=1 to rows do
begin
For j:=1 to columns do
begin
{рисоватьПрямоугольник(поз X, поз Y, длина, ширина);}
{По позициям начала отрисовки мы пропускаем нужное нам количество
пространства, а именно нужное количество занимаемого места пропусками
и квадратами}
drawRect(space*j+a*(j-1) , space*i + a*(i-1), a,a );
end;
end;
Const
n = 40;
var
s,i,ind,k1,k2: integer;
mas: array[1..n] of integer;
begin
s := 0;
for i:=1 to n do s := s+ mas[i];
Writeln ('сумма элементов массива: ',s);
s := 1;
for i:=1 to n do s := s * mas[i];
Writeln ('произведение элементов массива: ',s);
s := 0;
for i:=1 to n do s := s + mas[i]*mas[i];
Writeln ('сумма квадратов элементов массива: ',s);
s := 0;
for i:=1 to 6 do s := s+ mas[i];
Writeln ('сумма первых 6 элементов массива: ',s);
ind:=0;
repeat
Writeln('Введите К1: '); read(k1);
Writeln('Введите К2: '); read(k2);
if (k2>k1) then ind := 1;
until (ind=1);
s := 0;
for i:=k1 to k2 do s := s+ mas[i];
Writeln ('сумма элементов массива с k1-го по k2-й: ',s);
end.