Аватар
Информатика, опубликовано 2018-08-22 21:09:38 by Гость

Получив на вход число x, этот алгоритм печатает число M. Известно, что x > 100. Укажите наименьшее такое (т. е. большее 100) число x, при вводе которого алгоритм печатает 2. var x, L, M: integer; begin readln(x); L := x-12; M := x+12; while L M do if L > M then L := L - M else M := M – L; writeln(M); end. Ответ нужен с пояснением плиииззз

Аватар
Ответ оставил Гость

106

function f(x: integer): integer;
var
    L, M: integer;
begin
    L := x - 12;
    M := x + 12;
    while L M do
        if L > M then
            L := L - M
        else
            M := M - L;
    f := L;
end;

begin
    var x := 100;
    var r := 0;
    repeat
        x := x + 1;
        r := f(x);
    until r = 2;
    writeln(x);
end.

Вопрос
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.