Регистрация
87056231946
02.12.2021 15:31
Информатика
Есть ответ 👍

по информатике, заранее благодарю

263
273
Посмотреть ответы 1

Ответы на вопрос:

ilviragaraeva2
ilviragaraeva2
4,7(98 оценок)

вот мой г**нокод на javascript с одного онлайн-курса, но с использованием while. скину сотку на телефон любому, кто в нем разберется:

function cycle(a, b) {

    while(a ! = b) b = a> b ? [a,a=b][0]-a : b-a

    return a;

}

но поскольку я вижу сверху ключевое слово repeat, полагаю, нужно это сделать в pascal. ради б-га:

var a,b: integer;

begin

    a : = 32;

    b : = 32;

    while not (a = b) do

    begin

        if a > b then begin

            a : = a - b;

        end else

            b : = b - a;

    end;

    writeln(a);

end.

Популярно: Информатика