Question

Sa se scrie daca este litera sau nu
Program in pascal

Answer 1

Program pLITERA
  var car: char
Begin
     writeln ('Introdu un caracter');
     readln (car);
     writeln ('raspuns');
case car of
'A'..'Z' : writeln ('Caracterul introdus este o litera');
'a'..'z' : writeln ('Caracterul introdus este o litera');
   else writeln ('Caracterul introdus este o cifra sau un caracter special');
end;
   readln
     end.