Haga un programa que pida dos números por cada uno de los siguientes tipos de datos : Integer, single y que después realice las cuatro operaciones básicas, suma, resta, multiplicación, división, y muestre sus resultados.

Haga un programa que permita calcular el residuo de dos números enteros ingresados por el teclado, para este ejercicio no use el operador mod.

{$codepage UTF8}

VAr entero:Integer;

BEGIN

  Readln(entero);

  entero:=34/45;

  Writeln(entero)

END;

{$codepage UTF8}

VAR num1:Longintt;

BEGIN

  num1:=34;

  num1:=num1 div 2;

END.

{$codepage UTF8}

VAR a,b : WordBool;

BEGIN

  Readln(a);

END.

{$codepage UTF8}

VAR a:boolean

BEGIN

   a:= 5=6;

END.

{$codepage UTF8}

VAR a:boolean;

BEGIN

  a:=true;

  b:=false;

  c:= a and b;

END.

{$codepage UTF8}

VAR a,b,c:boolean;

BEGIN

  a:=true;

  b:=false;

  c:=a or b

END.

{$codepage UTF8}

VAR cond:boolean;

  a,b : integer;

BEGIN

  a:= true;

  b:= false;

  cond:=a and b;

  writeln(cond)

END.

Haga un programa que pida dos números enteros, los compare y muestre True si ambos son iguales y false si no lo son.

Haga un programa que pida dos números enteros, los compare y muestre True si el primero es mayor que el segundo, False si el segundo es mayor que el primero.

{$codepage UTF8}

VAR a:boolean;

BEGIN

  a:=5=<9;

END.

{$codepage UTF8}

VAR a:integer;

BEGIN

  a:=4>=9;

END.

{$codepage UTF8}

VAR a,b:integer;

    cond:boolean;

BEGIN

  readln(a);

  readln(b);

  cond:=a = b;

  Writeln(cond)

END.

Haga un programa que permita poner a 0 el bit n de un byte, si el bit en cuestión ya esta en 0, que no lo cambie.

Haga un programa que permita poner a 1 el bit n de un byte, si el bit en cuestión ya esta en 1, que no lo cambie.

Haga un programa que lea un byte y muestre su equivalente en binario, para este ejercicio use el operador div.

Haga un programa que lea un byte y muestre su equivalente en binario, para este ejercicio use el operador and.

Haga un programa que lea un integer como dígito binario y muestre su equivalente en decimal.

Escriba un programa que lea una temperatura Celsius como un single, y obtenga la temperatura Farenheit de acuerdo a la siguiente formula : f=(9/5)c+32.

Escriba un programa que permite convertir una medida dada en pies a sus equivalentes en : a) yardas, b) pulgadas, c) centímetros, d) metros. (1 pie = 12 pulgadas, 1 yarda=3 pies, 1 pulgada = 2.54 cm, 1 m= 100 cm). Leer el número de pies e imprimir el número de yardas, pulgadas, centímetros y metros.

Escribir un programa que lea la altura h, y las longitudes de las dos bases b1 y b2 de un trapecio T e inprima h, b1, b2 y el área de T área=[(b1+b2)/2]xh.

Escriba un programa que pida el radio de un círculo, e imprima su diámetro, circunferencia y área, para el valor de pi use : 3.14159.

Escriba un programa que acepte como entrada un número de 5 dígitos, lo separe en sus distintos dígitos y los imprima separando cada uno por tres espacios.(Use los operadores div y mod).

Escriba un programa que permita sumar los números de una seria aritmética, el programa debe pedir el primer termino, el último, y la cantidad de números de la serie. Ejemplo:

Ingrese primer termino : 3

Ingrese ultimo termino : 100

Cantidad de números de la serie : 98

La suma de los términos es : 5047

{$codepage UTF8}

VAR a:integer;

BEGIN

   a:=4*((5+6))7;

END.

{$codepage UTF8}

VAR r:real;

BEGIN

  r:=(3+5)*6);

END.

{$codepage UTF8}

VAR m:single;

BEGIN

   m:=(4+5)/8;

END.

{$codepage UTF8}

VAR j:single;

BEGIN

   j:=1;

   j:=-j+5;

   writeln(j:10:0);

   readln

END.

Haga un programa que permita hallar la raíz cuadrada, cúbica y cuarta de un numero real ingresado por teclado, usando las funciones exp y ln. (sólo para números positivos)

Haga un programa que permita hallar la raíz cuadrada, cúbica y cuarta de un numero real ingresado por teclado, usando el operador de potencia **. (sólo para números positivos)

Haga un programa que permita hallar el monto compuesto(S), de un capital(C), acumulado en periodos(n), con una tasa efectiva anual(tea).Usar la siguiente formula S=C(1+(tea/100))**n.

Haga un programa que permita hallar el Capital(C), de un monto compuesto(S), acumulado en periodos(n), con una tasa efectiva anual(tea). Usar la siguiente formula C=S(1+(tea/100))**-n.

Haga un programa que calcule el residuo de dos números reales ingresados por teclado, como si fueran enteros.

Haga un programa que permita redondear sólo números reales positivos a la cantidad de decimales que se indica.

ejemplos :

ingrese un real : 4.3567

redondeo : 3

numero redondeado : 4.357

ingrese un real : 4.3562

redondeo : 3

numero redondeado : 4.356

ingrese un real : 4.3567

redondeo : 0

numero redondeado : 4

ingrese un real : 4.5567

redondeo : 0

numero redondeado : 5