3. Заполните таблицу, в каждой строке которой одно и то же число, должно быть записано в системах счисления - id2040675420220324 от saulefazylovnap00xfc 24.03.2022 13:50

Question

Информатика: 3. Заполните таблицу, в каждой строке которой одно и то же число, должно быть записано в системах счисления с основанием 2,8,10 и 16. (Запишите решение) заранее огромное

saulefazylovnap00xfc · Accepted Answer

Program prog;
function Search(n: integer): integer;
var
input: array[1..4] of integer;
even: array[1..4] of integer;
atLestOne: boolean;
begin
input[1] := n div 1000;
input[2] := n mod 1000 div 100;
input[3] := n mod 100 div 10;
input[4] := n mod 10;
if (input[1] mod 2 = 0)
    begin
      even[1] := input[1];
      atLestOne := True;
    end;
if (input[2] mod 2 = 0)
    begin
      even[2] := input[2];
      atLestOne := True;
    end;
if (input[3] mod 2 = 0)
    begin
      even[3] := input[3];
      atLestOne := True;
    end;
if (input[4] mod 2 = 0)
    begin
      even[4] := input[4];
      atLestOne := True;
    end;
if atLestOne = True then
    Search := Low(even)
else
    Search := -1;
end;

3. Заполните таблицу, в каждой строке которой одно и то же число, должно быть записано в системах счисления с основанием 2,8,10 и 16. (Запишите решение) заранее огромное

MOGZ ответил