Регистрация
anastasia8879
29.09.2022 07:01
Информатика
Есть ответ 👍


Напишите процедуру, которая переводит переданное ей натуральное число в систему
счисления, которая задается вторым параметром (от 2 до 20).

290
479
Посмотреть ответы 2

Ответы на вопрос:

pupsikira2
pupsikira2
4,8(77 оценок)

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018

// Внимание! Если программа не работает, обновите версию!

Объяснение:

lera1066
lera1066
4,4(83 оценок)

using system;

//6,

//28,

//496,

//8128,

//33550336

internal class program {

    private static void main() {

        var max = 0l;

        var quantity = 0;

        console.writeline("введите последовательность. для окончания введите ноль");

        do {

            var n = long.parse(console.;

            if (n == 0)

                break;

            if (max == n)

                quantity++;

            else if (n > max & & isidealnumber(n)) {

                max = n;

                quantity = 1;

            }

        } while (true);

        console.writeline($"max = {max}, кол-во = {quantity}");

        console.readkey();

    }

    private static bool isidealnumber(long number) {

        var sum = 1l;

        for (var i = 2l; i < = number / 2; i++) {

            if (number % i ! = 0)

                continue;

            sum += i;

            if (sum > number || number < 0)

                break;

        }

        console.writeline($"number = {number}, sum = {sum}");

        return sum == number; //зачем выдумывать нолики и единички если давно придуманы буленовские переменные

    }

}

Популярно: Информатика