Tres números enteros de un dígito en lenguaje Pascal

Lenguaje

Pascal
Descripción

Leer tres números enteros de un dígito y almacenarlos en una sola variable que contenga a esos tres dígitos. Por ejemplo si A=5 y B=6 y C=2 entonces X=562.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

program TresNumerosEnterosDeUnDigito;

uses crt;

var A, B, C, X : integer;

begin

    write ('Ingresa el valor de A: ');

    readln (A);

    write ('Ingresa el valor de B: ');

    readln (B);

    write ('Ingresa el valor de C: ');

    readln (C);

    X := A*100+B*10+C;

    writeln ('Valor de X: ', X);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.