Использовать Рисователь
алг радуга
нач
новый лист(450, 300, белый)
кисть(красный)
линия(300, 50, 220,50)
линия(220, 50, 220, 100)
линия(220, 100, 300, 50)
залить(230,80)
кисть(серый)
линия(220, 100, 300, 100)
линия(300, 100, 220, 150)
линия(220, 150, 220, 100)
залить(230,110)
кисть(желтый)
линия(220, 100, 130, 100)
линия(220, 100, 130, 150)
линия(130, 150, 130, 100)
залить(150,110)
кон
Минимальное число состоящие из 6 бит это (в двоичном виде) 100000, что в десятичном виде дает 32.
Ответ: Минимальное число 32.
Program gg;var a,b,c:real;
begin a:=(1+1/4)/(1+1/2); b:=(6.8*0.04*1.65)/(3.3*5.1*0.16); c:=((3+1/2+1+4/5)*3/5-1.18)/((8+1/8)*(2/13)+(1+1/3)/(1+7/9));end.
Const n=9;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n div 2 do
begin
for j:=1 to i-1 do begin a[i,j]:=0; a[i,n-j+1]:=0; end;
for j:=i to n div 2 do begin a[i,j]:=1; a[i,n-j+1]:=1; end;
end;
for i:=n div 2+1 to n do
begin
for j:=1 to n-i do begin a[i,j]:=0; a[i,n-j+1]:=0; end;
for j:=n-i+1 to n div 2 do begin a[i,j]:=1; a[i,n-j+1]:=1; end;
end;
if n mod 2 = 1
then for i:=1 to n do a[i,n div 2 +1]:=1;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:3);
writeln;
end;
end.
Пример:
1 1 1 1 1 1 1 1 1
0 1 1 1 1 1 1 1 0
0 0 1 1 1 1 1 0 0
0 0 0 1 1 1 0 0 0
0 0 0 0 1 0 0 0 0
0 0 0 1 1 1 0 0 0
0 0 1 1 1 1 1 0 0
0 1 1 1 1 1 1 1 0
1 1 1 1 1 1 1 1 1