7.2.. Učitati dva broja veći se množi za 2 a manji dijeli sa 3.

Opis rješenja: Uporediti brojeve a>b uvećava se a i dijeli b sa 3. inače b se množi sa 2 te b dijeli sa 3.

REM p07211058;
CLS
INPUT "Unesi dva broja"; a, b
IF a > b THEN
        a = a * 2
        b = b / 3
ELSE
        b = b * 2
        a = a / 3
END IF
PRINT a, b
END

Ispis na ekranu:

Index