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

Опре­де­ли­те, при каком наи­боль­шем введённом зна­че­нии пе­ре­мен­ной s дан­ная про­грам­ма вы­ве­дет число 121. Для Ва­ше­го удоб­ства про­грам­ма пред­став­ле­на на четырёх язы­ках про­грам­ми­ро­ва­ния.

 

PythonСи++

s = int(input())

s = s // 10

n = 1

while s < 221:

    if n % 2 == 0:

        s = s + 13

    n = n + 5

print(n)

#include <iostream>

using namespace std;

int main()

{

    int s, n;

    cin >> s;

    s = s / 10;

    n = 1;

    while (s < 221) {

        if (n % 2 == 0)

            s = s + 13;

        n = n + 5;

    }

    cout << n << endl;

    return 0;

}

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

var s, n: integer;

begin

    readln(s);

    s := s div 10;

    n := 1;

    while s < 221 do begin

        if n mod 2 = 0 then

            s := s + 13;

        n := n + 5

    end;

    writeln(n)

end.

алг

нач

    цел s, n

    ввод s

    s := div(s,10)

    n := 1

    нц пока s < 221

        если mod(n,2) = 0

            то s := s + 13

        все

        n := n + 5

    кц

    вывод n, нс

кон

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

Ре­ше­ние.

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

var s, n, i, ans: integer;

begin

for i := 0 to 10000 do begin

s := i div 10;

n := 1;

while s < 221 do begin

if n mod 2 = 0 then s := s + 13;

n := n + 5

end;

if n = 121 then ans := i;

end;

writeln(ans);

end.

После вы­пол­не­ния про­грам­мы наи­боль­шее зна­че­ние s, вы­ве­ден­ное на экран, будет равно 779.

 

Ответ: 779.

 

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

for i in range(1000, 1, -1):

s = i

s = s // 10

n = 1

while s < 221:

if n % 2 == 0:

s = s + 13

n = n + 5

if n == 121:

print(i)

break