• var x,L,M: integer;
    begin
    readln(x);
    L:=x;
    M:=5;
    if L mod 2=0 then
    M:=24;
    while L<>M do
    if L>M then
    L:=L-M
    else M:=M-L;
    writeln(M);
    end.
    при этом x>40, xmin=5

Ответы 0

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years