Question

scrieti programul care afiseaza nr.de ordine ale literelor in ordine descrescătoare cu instiunea for va rog frumos ajutor​

Answer 1

program nrordineLitere;

var ch: char;

   cod:integer;

begin

 writeln(' codurile literelor mari;');

 for ch:='Z' downto 'A' do

      write(ch:4);

 writeln;

 for ch:='Z' downto 'A' do

     write(ord(ch):4);

 writeln; writeln;

 writeln(' codurile literelor mici;');

 for ch:='z' downto 'a' do

      write(ch:4);

 writeln;

 for ch:='z' downto 'a' do

     write(ord(ch):4);

 writeln;

end.