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

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

 

C++Python

#include <iostream>

using namespace std;

 

int main()

{

    int x, L, M;

    cin >> x;

    L = 0;

    M = 0;

    while (x > 0){

        M = M + 1;

        if(x % 2 != 0){

            L = L + 1;

        }

        x = x / 2;

    }

    cout << L << endl << M << endl;

    return 0;

}

x = int(input())

L = 0

M = 0

while x > 0:

    M = M + 1

    if x % 2 != 0:

        L = L + 1

    x = x // 2

print(L)

print(M)

 

 

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

var x, L, M: integer;

begin

    readln(x);

    L := 0;

    M := 0;

    while x > 0 do begin

        M := M + 1;

        if x mod 2 <> 0 then

            L := L + 1;

        x := x div 2;

    end;

    writeln(L);

    writeln(M);

end.

 

алг

нач

    цел x, L, M

    ввод x

    L := 0

    M := 0

    нц пока x > 0

        M := M + 1

        если mod(x, 2) <> 0 то

            L := L + 1

        все

        x := div(x, 2)

    кц

    вывод L, нс, M

кон

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

Ре­ше­ние.

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

var x, L, M, i: integer;

begin

for i := 1 to 1000 do begin

x := i;

L := 0;

M := 0;

while x > 0 do begin

M := M + 1;

if x mod 2 <> 0 then

L := L + 1;

x := x div 2;

end;

if (L = 5) and (M = 8) then begin

writeln(i);

break;

end;

end;

end.

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

 

Ответ: 143.

 

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

for i in range(10000):

x = i

L = 0

M = 0

while x > 0:

M = M + 1

if x % 2 != 0:

L = L + 1

x = x // 2

if L == 5 and M == 8:

print(i)

break

Источник: ЕГЭ по ин­фор­ма­ти­ке 05.04.2021. До­сроч­ная волна
Раздел кодификатора ФИПИ: