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:
![](../../pascal/pascal_prir/072/072_izvedi/07211058.gif)
Index
|