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 i ab dijeli sa 3.
PROGRAM p07211058;
USES
WinCrt;
VAR
a, b : REAL;
BEGIN
WRITE('Dva broja ');
READLN(a, b );
IF a > b THEN
Writeln ('veci*2 = ', a*2, ' manji/3 = ',b/3)
ELSE
Writeln ('veci*2 = ', b*2, ' manji/3 = ', a/3);
END.
Ispis na ekranu:
 |
 |
 |
 |
 |
 |
