23.1.23010070. Učitati 3 različita realna broja. Ispisati ih u rastućem redoslijedu na ekran.

Opis rješenja:

Listing programa:

REM 23010070 Učitati 3 različita realna broja. Ispisati ih u rastućem redoslijedu na ekran.
PRINT "Unesi tri broja "
INPUT a
INPUT b
INPUT c
PRINT "Ulazni redoslijed: "; a; b; c

IF a > b THEN
    temp = a
    a = b
    b = temp
END IF

IF a > c THEN
    temp = a
    a = c
    c = temp
END IF

IF b > c THEN
    temp = b
    b = c
    c = temp
END IF

PRINT "Izlazni redoslijed: "; a; b; c
END

Ispis na ekranu:

Riješeni zadaci    Index