• Lenguaje

    Pascal

  • Descripción

    Si construir un escalón cuesta $X y por cada metro de altura se necesitan 3 escalones. Para un edificio que mide Z kilómetros de altura ¿Cuántos escalones tendrá el edificio? Y ¿Cuánto cuesta hacer todos los escalones?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program ConstruccionDeEscalones;
uses crt, math;

var X, Z, costo, escalones : real;
begin
    write ('Ingresa el valor de X: ');
    readln (X);
    write ('Ingresa el valor de Z: ');
    readln (Z);
    escalones := floor(Z*1000*3);
    costo := X*escalones;
    writeln ('Valor de costo: ', costo:0:6);
    writeln ('Valor de escalones: ', escalones:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.