Question

va rog ajutor,trebuie facute in Pascal ambele programe

Answer 1

program triunghi;

var a, a3, a6: integer;

begin

 write('a='); read(a);

 a3:=a*a*a;

 a6:=a3*a3;

 writeln(a:6);

 writeln(a3:6, a6:6);

 writeln(a6:6, a3:6, a:6);

end.

program ordLitera;

var ch: char;

   nrord: integer;

begin

 write('introdu caracter: '); read(ch);

 if (ch>='A')and(ch<='Z')

   then writeln('Litera majuscula cu nr de ordine ', ord(ch)-ord('A')+1)

 else

    begin

      if  (ch>='a')and(ch<='z')

        then writeln('Litera minuscula cu nr de ordine ', ord(ch)-ord('a')+1)

      else writeln(' nu ati introdus litera...');

    end;

end.