Ответ:
program Delitel;
var
n, i, j, c, d: Integer;
a: array of Integer;
begin
Write ('Введите N: ');
ReadLn (n);
SetLength (a, n + 1);
for i := 1 to n do begin
c := 0;
for j := 1 to i do begin
if i mod j = 0 then
Inc (c);
end;
a [i] := c;
end;
c := 1;
for i := 1 to n do begin
if a [i] > a [c] then
c := i;
end;
WriteLn ('Число ', c, ' имеет ', a [c], ' делителей.');
ReadLn;
end.
1. двоичный код :
00011100010110100011011000011100010111000011110000011100010111100011100
0000111000101110000110110000111000101110000110010000111000101110000111110
0001110001011110001110000001110001011100010101000001110001011100010111000
0011100010111000011011000011100010111000011001000101000000111000101100000
1100100001110001011100001110100001110001011100001111000001110001011100010
1011000011100010111000100001000011100010111000101101000011100010111000011
0010001010000001110001011010001100100001110001011110001110000001110001011
1100011010000011100010111000101011000011100010111000011001000011100010111
0001011010000111000101110001011100000111000101110000110110000111000101110
00101101000011100010111000011001
2.Десятичный код:
144527144630144728144627144625144631144728144642144646144627144625201444
2514462914463014464314463314464514462520144525144728144726144643144625144
645144646144627144645144625
matrix = [sum(list(map(int, input().split()))) for i in range(10)] # если 20 по вертикали, замени 10 на 20
m = max(matrix)
print(m, matrix.index(m))
Знакомство с исходными данными Создание таблиц и связей с ними Подготовка запросов для анализа данных
DIV - целое.
Mod - остаток от деления.
Судя по коду требуется ввести трехзначное число.
x=700
Ответ: 700
