Întrebare
Sa se scrie daca este litera sau nu
Program in pascal
Program in pascal
Întrebare a fost pusă de: USER9371
59 Vezi
59 Răspunsuri
Răspuns (59)
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.
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.