Question

Ajutati-ma va rog, nu inteleg cum se face :D
PROGRAM IN PASCAL

De la tastatura se introduce un simbol, reprezentat prin variabila e. Determinati daca simbolul este o cifra a sistemelor de numeratie binar, octal, zecimal, hexazecimal. Indicatie: Amintiti-va care sunt cifrele sistemelor de numeratie respective.

Answer 1

program sistemeNumeratie;

var c:char;

begin

 write('introdu caracter: '); read(c);

 if (c>='0')and(c<='1') then writeln('cifra a sistemului binar');

 if (c>='0')and(c<='7') then writeln('cifra a sistemului octal');

 if (c>='0')and(c<='9') then writeln('cifra a sistemului zecimal');

 if ((c>='0')and(c<='9'))or((c>='A')and(c<='F'))or((c>='a')and(c<='f'))

    then writeln('cifra a sistemului hexazecimal')

 else writeln(' nu e cifra a sistemelor binar, octal, zecimal, hexazecimal');

end.