👤

Se dau de la tastatura 2 cifre sub forma de caracter.Sa se formeze pe ecran 2 numere de 2 cifre posibile.Avem grija sa nu citim altceva decat o cifra si sa fie amadoua diferite de 0. 

Răspuns :

10
Q$ = INKEY$
IF ((Q$ >= "1" ) AND ( Q$ <= "9" ))  THEN
        A = VAL(Q$)
        GOTO 20
ELSE
        GOTO 10
ENDIF

20
Q$ = INKEY$
IF ((Q$ >= "1" ) AND ( Q$ <= "9" ))  THEN
        B = VAL(Q$)
        GOTO 30
ELSE
        GOTO 20
ENDIF

30
NR1 = 10 * A + B
PRINT NR1
NR2 = 10 * B + A
PRINT NR2