1001001 2-ую в 10-ую 62 10-ую в 2-ую 115 10-ую в 2-ую 32 8-ую в 10-ую 9da 16-ую в 10ую с решением

К последнему пояснение : при переводе букв из 16тиричной в 10ичную за D считается 13 , а за A - 10 .

Объяснение:

19. 0. Или пустое множество.

A = {1, 2, 3, 4, 5, 6, 7, 8}; B = {1, 2, 3, 4, 5, 6, 9}; C = {1, 2, 3, 4, 5, 6}

Элементы, которые принадлежат хотя бы одному из множеств А или В:

{1, 2, 3, 4, 5, 6}

Получилось как раз множество С, и на 2 шаге все элементы удаляются.

20. Это более сложная задача, сходу не скажешь.

21. Счастливые билеты в промежутке (186780, 207701)

187781, 188881, 189981, 190091, ..., 199991,

200002, 201102, 202202, 203302, 204402, 205502, 206602.

Под многоточием стоят все симметричные номера, у которых две средних цифры меняются от 00 до 99. Всего 10 номеров.

Итого получается 3 + 10 + 7 = 20 счастливых билетов.

Uses crt;
const
    nmax = 20;

var
    A: array[1..nmax] of integer;
    I, m, s: integer;
    Am, kon: text;

begin
    Clrscr;
    Assign(Am, 'Am.txt');
    
    {раскоментировать для записи массива в файл}
    {Rewrite(Am);
    m := Random(nmax - 5) + 5;
    for i := 1 to m do
        Writeln(Am, Random(20));
    Close(Am);}
    
    {считывание данных из файла}
    Reset(Am);
    s := 0;
    m := 0;
    while not eof(Am) do
    begin
        m := m + 1;
        Readln(Am, A[m]);
        s := s + A[m];
    end;
    Close(Am);
    
    Assign(kon, 'kon.txt');
    Rewrite(kon);
    
    if s > 50 then
        Writeln('Сумма элементов массива более 50 и равна: s=', s)
    Else
    begin
        Writeln('Сумма элементов менее 50, вывод исходного массива');
        for i := 1 to m do
        begin
            Writeln('A[', i, ']=', A[i], ' ');
            Writeln(kon, 'A[', i, ']=', A[i], ' ');
        end;
    end;
    
    Close(kon);
    Readkey;
end.