-
Lenguaje
Pascal
-
Descripción
Al recibir como dato un número de cuatro dígitos, genere una impresión como la que se muestra a continuación (el número es 6352)
6
3
5
2
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program ImpresionDe4Digitos;
uses crt;
var digito_1, digito_2, digito_3, digito_4, un_numero : integer;
begin
write ('Ingresa el valor de un numero: ');
readln (un_numero);
digito_1 := (un_numero mod 10000-un_numero mod 1000) div 1000;
digito_2 := (un_numero mod 1000-un_numero mod 100) div 100;
digito_3 := (un_numero mod 100-un_numero mod 10) div 10;
digito_4 := un_numero mod 10;
writeln ('Valor de digito 1: ', digito_1);
writeln ('Valor de digito 2: ', digito_2);
writeln ('Valor de digito 3: ', digito_3);
writeln ('Valor de digito 4: ', digito_4);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var digito_1, digito_2, digito_3, digito_4, un_numero : integer;
begin
write ('Ingresa el valor de un numero: ');
readln (un_numero);
digito_1 := (un_numero mod 10000-un_numero mod 1000) div 1000;
digito_2 := (un_numero mod 1000-un_numero mod 100) div 100;
digito_3 := (un_numero mod 100-un_numero mod 10) div 10;
digito_4 := un_numero mod 10;
writeln ('Valor de digito 1: ', digito_1);
writeln ('Valor de digito 2: ', digito_2);
writeln ('Valor de digito 3: ', digito_3);
writeln ('Valor de digito 4: ', digito_4);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.