TURBO PASCAL

BUENO AQUI LES DEJO OTRO PROGRAMITA.


PROGRAM EJER21;
       USES CRT;

       VAR T1,T2:REAL;
       VAR T1C,T2F:REAL;
BEGIN
       T1:=32;
       T2:=10;
       T1C:=T1 - 32;
       T2F:=T2 + 32;

       ClrScr;

       WRITE ('TEMPERATURA EQUIVALENTE: ');
       WRITE (T1:3:0);  WRITE ('º Fahrenheit - ');
       WRITE (T1C:3:0); WRITELN ('º Celsius');
       WRITE ('TEMPERATURA EQUIVALENTE: ');
       WRITE (T2:3:0);  WRITE ('º Celsius - ');
             WRITE (T2F:3:0); WRITE ('º Fahrenheit');
        READ

END.



ESPERO Y ESTE ESPACIO LES SEA UTIL.

GRACIAS!!