camputacion

Escribir un programa en Pascal que sume, reste, multiplique y divida
dos números:

x = 10 y = 2

PROGRAM EJER02;
USES CRT; {Nos va a permitir limpiar la pantalla junto con
ClrScr}VAR x,y:INTEGER;
VAR suma,rest,mult,divi:INTEGER;

BEGIN
x:=10;
y:=2;

suma:=x + y;
rest:=x - y;
mult:=x * y;
divi:=x div y;{Con estas 4 variables realizamos las cuatro operaciones aritméticas
fundamentales:
suma, resta, multiplicación y división}

ClrScr; {Limpia la pantalla}

WRITE ('SUMA:');WRITELN (suma);
WRITE ('RESTA:'); WRITELN (rest);
WRITE ('MULTIPLICACION:'); WRITELN (mult);
WRITE ('DIVISION:'); WRITE (divi);

END.

PROGRAM EJER2B;
USES CRT;VAR x,y:REAL;
VAR suma,rest,mult:REAL;
VAR divi:REAL;

{suma, resta, multiplica y divide 2 numeros reales}

BEGIN
WRITELN ('Este programasuma,resta,multiplica y divide:');
WRITELN ('Escriba dos numeros reales');
WRITELN (' ');


READ (x);
READ (y);

suma:=x + y;
rest:=x - y;
mult:=x *y;
divi:=x / y;

ClrScr;

WRITE ('SUMA:'); WRITELN (suma:3:0);
WRITE ('RESTA:'); WRITELN (rest:3:0);
WRITE('MULTIPLICACION:'); WRITELN (mult:3:0);
WRITE ('DIVISION:'); WRITE (divi:5:2);

END.
Escribir un programa en Pascal que lea desde teclado el importe
bruto de una factura y determine elimporte neto según los
siguientes criterios.

· Importe bruto menor de 20.000 -> sin descuento
· Importe bruto mayor de 20.000 -> 15% de descuento

PROGRAM EJER39;
USES CRT;VAR importe_bruto:REAL;
VAR descuento, total:REAL;

BEGIN
ClrScr;

WRITE ('Indique el importe de su factura para ver ');
WRITELN ('si le "descontamos"...