Делалось из рассчета что 4 записывается 4 единицами и тп
<span>Для N = 3500 и М = 5 будет выбрано 216 чисел</span>

const
    symbols_count = 7;
    symbols: array[1..symbols_count] of integer = (1000, 500, 100, 50, 10, 5, 1);

var
    num, n, m, c, i, j, res: integer;

begin
    readln(n, m);

    for i := 1 to n do
    begin
        num := i;
        c := 0;
        for j := 1 to symbols_count do
            if num >= symbols[j] then
            begin
                c := c + num div symbols[j];
                num := num mod symbols[j];
            end;

        if c = m then begin
            {writeln(i);}
            res := res + 1;
        end;
    end;

    writeln(res);
end.

0 0

2 года назад

Как называется свойство алгоритма, означающее, что он всегда приводит к результату через, конечное, возможно очень большое, числ

Vera-Veya

Под буквой В понятность

0 0

4 года назад

Перевести числа из 10-ную системы счисления в 2-ную и 8-ную системы счисления 52

Михаил Романович ...

52 (в десятичной системе счисления)
52/2=26
26/2=13
13/2=6 (1 в остатке)
6/2=3
3/2=1 (1 в остатке)
Следовательно 52 в двоичной системе счисления - 10100

52(в десятичной системе счисления)
52/8=6 (4 в остатке)
6/8 (нацело не делится, 6 в остатке)
Следовательно, 52 в восьмеричной системе - 64

0 0

4 года назад