Ответ:
2.b) будет ....................
var
a:array [1..6,1..6] of integer;
i,j: integer;
begin
for i:=1 to 6 do
begin
a[i,i]:=i;
a[7-i,i]:=i;
end;
for i:=1 to 6 do
begin
for j:=1 to 6 do write(a[i,j]:2);
writeln;
end;
<span>end.</span>
Миша - 5, музыка
Оля - 6, художка
Коля - 7, спорт
Uses graphabc;
begin
window.Init(0, 0, 800, 600, clwhite);
window.IsFixedSize := true;
var r:=ReadInteger('R=');
var h:=ReadInteger('h=');
pen.Width := 4;
DrawEllipse(100, 100, 100 + r, 100 + r - (r div 2));
line(100, (100 + r - (r div 2) + 100) div 2, 100, ((100 + r - (r div 2) + 100 + h + h) div 2));
line(100 + r, (100 + r - (r div 2) + 100) div 2, 100 + r, ((100 + r - (r div 2) + 100 + h + h) div 2));
DrawEllipse(100, 100 + h, 100 + r, 100 + r - (r div 2) + h);
end.
Первая цифра в записи будет 3.
Изменение цифр происходит так:
2^0 = 1
2^1 = 2
2^2 = 4
2^3 = 8
2^4 = 10
2^5 = 20
2^6 = 40
2^7 = 80
и так далее.
Степень 1024 кратна 4-м, поэтому число будет начинаться с 1. Следующая степень 1025 будет начинаться с 2.
А их сумма, соответственно, 3.