Question

Să se scrie un program care pentru orice literă (din alfabetul latin) introdusă de la tastatură afişează numărul ei de ordine din alfabet.
Pascal​

Answer 1

Răspuns:

 var

   litera: Char;

begin

 Write('Literă: ');

 ReadLn(litera);

 if (UpCase(litera) >= 'A') and (UpCase(litera) <= 'Z') then begin

   WriteLn(litera, ' este litera numărul ', Ord(UpCase(litera)) - Ord('A') + 1);

 end else begin

   WriteLn(litera, ' nu este literă (cel puțin nu în alfabetul latin)');

 end;

end.