(LAZARUS) ХОТЯ-БЫ ЧТО-ТО а: array [0..1000] of integer; и, п, k: integer; begin Мето1.Clear; в: -SirTolnt (Editl.Text)
for i: -0 to n do begin alij:-random(10); Мето1.Lines[ij:-FloatToStr(afij); end; еnd; procedure TForm1.Вutton2Click(Sender: TObjеct);
begin k:=0 for i: -0 to n do if alij>6 then k:3k+1; Edit2. Text:-FloatToStr(k); end; end.​

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

function MaxSubstr(s1,s2:string):string;
begin
  var a:=new integer[s1.Length+1,s2.Length+1];
  var u:=0; var v:=0;
  for var i:=0 to s1.Length-1 do
    for var j:=0 to s2.Length-1 do
      if s1[i+1]=s2[j+1] then begin
        a[i+1,j+1]:=a[i,j]+1;
        if a[i+1,j+1]>a[u,v] then begin u:=i+1; v:=j+1 end
        end;
  Result:=s1.Substring(u-a[u,v],a[u,v])
end;

begin
  var s:='trapperkaperkatrter';
  var t:='appekaperspamer';
  Writeln(MaxSubstr(s,t))
end.

Укажите номер наименьшего из трех числел

1. 101010²

2.2F [16]

3. 51[8]

Укажите, в каких системах счисления возможна следующая запись числа :121090

1. В десятичной

2. В шестнадцатеричной.

3. В восьмеричной.

4. В двоичной.

Установите соответствие.

110. 1.7

001. 2.5

101. 3.3

010. 4. 1

111. 5.2

100. 6.4

011. 7.6

Укажите, в каких системах счисления невозможна следующая запись числа: 101088

1. В десятичной

2. В двоичной

3. В восмеричной

4. В шестнадцатеричной

Запишите десятичный эквивалент восьмеричной числа 55[8]

Как будет записано 25 в восьмеричной системе счисления

Объяснение:хах