Вот хоть бы указывали язык, ей богу.
Паскаль я не знаю, но постарась помочь чем смогу
примерный алгоритм таков
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;
1)
// PascalABC.NET 3.3
begin
var n:=readInteger;
writeln(SeqGen(n,2,x->x+2).Sum);
end.
2)
var n,s,i:integer;
begin
readln(n);
s:=0;
for i:=1 to n do s:=s+2*i;
writeln(s);
end.
Пример:
5
30
1.
var
a:array [1..100000] of integer;
n, k, i:integer;
begin
read (n);
for i:=1 to n do
read (a[i]);
for i:=1 to n do
writeln (a[i]);
readln (k);
for i:=1 to n do
if k>a[i] then write (a[i]);
end.
Ответ:Готово
Объяснение:
а)1010 = 24*1 + 23*0 + 22*1 + 21*0 + 20* = 16 + 0 + 4 + 0 + 0 = 20
110 = 22*1 + 21*1 + 20*0 = 4 + 2 + 0 = 6
20 x 6 = 120
Б)1110 = 23*1 + 22*1 + 21*1 + 20*0 = 8 + 4 + 2 + 0 = 14
101 = 22*1 + 21*0 + 20*1 = 4 + 0 + 1 = 5
14 x 5 = 70
в)1110 = 23*1 + 22*1 + 21*1 + 20*0 = 8 + 4 + 2 + 0 = 14
111 = 22*1 + 21*1 + 20*1 = 4 + 2 + 1 = 7
14 x 7 = 98