Const N = 20; Var A:array[1..N] of byte; type Form1 = class(Form) procedure button1_Click(sender: Object; e: EventArgs); procedure button2_Click(sender: Object; e: EventArgs); {$region FormDesigner} private {$resource Unit1.Form1.resources} button1: Button; button2: Button; label1: &Label; {$include Unit1.Form1.inc} {$endregion FormDesigner} public constructor; begin InitializeComponent; end; end;
implementation
procedure Form1.button1_Click(sender: Object; e: EventArgs); Var i:byte; begin Randomize; label1.Text:=''; For i:= 1 to N do Begin A[i]:=PABCSystem.Random(90)+10; label1.Text+=A[i]+' '; End end;
procedure Form1.button2_Click(sender: Object; e: EventArgs); Var i:byte; begin label1.Text:=''; For i:= 1 to N div 5 do A[i*5]:=1; For i:= 1 to N do label1.Text+=A[i]+' '; end; end.
Будем рассматривать восьмеричное число как набор двоичных триад 8) Наименьшее четырехзначное восьмеричное число - это 1000₈. 1000₈ = 1 000 000 000₂, но у нас нулей может быть только три, поэтому оставляем самые левые нули, чтобы число оставалось минимально возможным: 1 000 111 111₂ = 1077₈ 9) Наибольшее четырехзначное восьмеричное число - это 7777₈ = 111 111 111 111₂, но у нас только четыре единицы и мы оставим их слева, чтобы число оставалось максимальным: 111 100 000 000₂ = 7400₈ 10)Наибольшее четырехзначное восьмеричное число - это 7777₈ = 111 111 111 111₂, но у нас только четыре нуля и мы запишем их справа, чтобы число оставалось максимальным: 111 111 110 000₂ = 7760₈
