23.1.23010080. Učitati 2 realna broja različita od 0. Ako su različitog predznaka sabrati ih, a ako su istog predznaka pomnožiti ih. Rezulat štampati na ekran.
Opis rješenja:
Listing programa:
REM 23010080
REM Ucitati 2 realna broja razlicita od 0. Ako su razlicitog predznaka sabrati ih, a ako su istog predznaka pomnožiti ih. Rezulat štampati na ekran.*/
PRINT "Prvi broj:";
INPUT a
WHILE (a = 0)
PRINT "Broj mora biti razlicit od 0.Drugi broj: "
INPUT b
WEND
PRINT "Drugi broj:";
INPUT b
WHILE (b = 0 OR b = a)
PRINT ("Broj mora biti razliÄit od 0 i od već unesenih.Drugi broj:");
INPUT b
WEND
IF ((a < 0 AND b > 0) OR (a > 0 AND b < 0)) THEN
rezultat = a + b
ELSE
rezultat = a * b
END IF
PRINT "Rezultat: "; rezultat
END
Ispis na ekranu:
Riješeni zadaci Index
|