• Lenguaje

    Pascal

  • Descripción

    Ingresa por teclado un número con decimales y muestra el valor redondeado al entero más proximo.

1
2
3
4
5
6
7
8
9
10
11
12
13
program Redondeo;
uses crt, math;

var numero_con_decimales, redondeado : real;
begin
    write ('Ingresa el valor de numero con decimales: ');
    readln (numero_con_decimales);
    redondeado := floor(numero_con_decimales+0.5);
    writeln ('Valor de redondeado: ', redondeado:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.