Question

Fie a un numar intreg. Scrieti un program care afiseaza daca se afla in intervalul deschis (-3;27). In Pascal

Answer 1

var a: integer;
Begin
writeln('Introduceti numarul:');
readln(a);
if (-3<a) and (a<27) then writeln('Numarul se afla in intervalul dat;')                     
                           else writeln('Numarul nu se afla in intrvalul dat;');
End.