МикаАбакирова
07.02.2022 05:43

написать программу, желательно на Pascal.ABC


написать программу, желательно на Pascal.ABC

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
1234567890824
25.04.2021 21:57
1) 203, минимальная система счисления - 4-ричная.
2 * 4^2 + 0 * 4^1 + 3 * 4^0 = 35
2) 10002, минимальная система счисления - 3-ичная.
1 * 3^4 + 0 * 3^3 + 0 * 3^2 + 0 * 3^1 + 2 * 3^0 = 83
3) 11111, тут может быть двоичная система счисления, но также возможна унарная, в которой лишь одна цифра - 1. То есть десятичная запись числа получается просто нахождением количества единиц.
В первом случае будет: 1 * 2^4 + 1 * 2^3 + 1 * 2^2 + 1 * 2^1 + 1 * 2^0 = 31
Во втором случае будет 5.
4) 2A, тут 11-ричная система счисления, так как цифры 0-9 и A.
2 * 11^1 + 10 * 11^0 = 32.
0,0(0 оценок)
Ответ:
Bogqwerty
27.01.2020 12:33
Код программы

var
    x, L, M: integer;

procedure Calc(x: integer; var L: integer; var M: integer);
begin
    L := 0;
    M := 0;
    while x > 0 do
    begin
        L := L + 1;
        if M < (x mod 5) then
            M := x mod 5;
        X := x div 5;
    end;
end;

begin
    for x := 100 to 500 do
    begin
        Calc(x, L, M);
        if (L = 3) and (M = 4) then
            Println(x, L, M);
    end;
end.

Вывод
100 3 4
101 3 4
102 3 4
103 3 4
104 3 4
105 3 4
106 3 4
107 3 4
108 3 4
109 3 4
110 3 4
111 3 4
112 3 4
113 3 4
114 3 4
115 3 4
116 3 4
117 3 4
118 3 4
119 3 4
120 3 4
121 3 4
122 3 4
123 3 4
124 3 4

суть процедуры заключается в том что она вычисляет кол-во цифр в 5ричном числе (L) и максимальну цифру в числе (М)
Максимальным для L=3 M=4 будет 124 или "444"_5
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота