Задания
Версия для печати и копирования в MS Word
Тип Д22 № 33524
i

Ниже на четырёх язы­ках про­грам­ми­ро­ва­ния за­пи­са­на про­грам­ма, ко­то­рая вво­дит на­ту­раль­ное число x, вы­пол­ня­ет пре­об­ра­зо­ва­ния, а затем вы­во­дит одно число. Ука­жи­те наи­мень­шее воз­мож­ное зна­че­ние x, при вводе ко­то­ро­го про­грам­ма вы­ве­дет числа 5 и 12.

 

C++Python

#include <iostream>

using namespace std;

 

int main()

{

    int x, m, s, d;

    cin >> x;

    m = 0;

    s = 0;

    while (x > 0) {

        d = x % 8;

        s += d;

        if (d > m) m = d;

        x = x / 8;

    }

    cout << m << ' ' << s << endl;

    return 0;

}

x = int(input())

m = 0

s = 0

while x > 0:

    d = x % 8

    s += d

    if d > m:

        m = d

    x = x // 8

print(m,s)

 

 

Пас­кальАл­го­рит­ми­че­ский язык

var x, m, s, d: integer;

begin

    readln(x);

    m := 0;

    s := 0;

    while x > 0 do begin

        d := x mod 8;

        s := s + d;

        if d > m then m := d;

        x := x div 8

    end;

    writeln(m, ' ', s)

end.

 

алг

нач

    цел x, m, s, d

    ввод x

    m := 0

    s := 0

    нц пока x > 0

        d := mod(x,8)

        s := s + d

        если d > m

            то m := d

        все

        x := div(x,8)

    кц

    вывод m, ' ', s, нс

кон

Спрятать решение

Ре­ше­ние.

Режим за­да­чу с по­мо­щью языка PascalABC пе­ре­бо­ром. Ниже при­ве­де­на про­грам­ма для ре­ше­ния этой за­да­чи.

var

x, m, s, d, i: integer;

begin

x := 0;

m := 0;

s := 0;

for i := 1 to 1000 do begin

x := i;

while x > 0 do begin

d := x mod 8;

s := s + d;

if d > m then m := d;

x := x div 8;

end;

if (m = 5) and (s = 12) then begin

writeln(i);

break;

end;

m := 0;

s := 0;

end;

end.

В ре­зуль­та­те ра­бо­ты про­грам­мы по­лу­ча­ем ответ  — 173.

 

Ответ: 173.

 

При­ведём дру­гое ре­ше­ние на языке Python.

for i in range(10000):

x = i

m = 0

s = 0

while x > 0:

d = x % 8

s += d

if d > m:

m = d

x = x // 8

if m == 5 and s == 12:

print(i)

break

Раздел кодификатора ФИПИ: