-
Lenguaje
Pascal
-
Descripción
Indicar el número de datos a capturar y determinar cuantos dígitos tiene un número e indicar cuantos tienen:
1 Dígito
2 Dígitos
3 Dígitos
4 Dígitos
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
program CantidadDeDigitos;
uses crt;
var dato, digitos, i, n, numeros_con_cuatro_digito : integer;
var numeros_con_dos_digitos, numeros_con_tres_digitos, numeros_con_un_digito : integer;
begin
numeros_con_cuatro_digito := 0;
numeros_con_dos_digitos := 0;
numeros_con_tres_digitos := 0;
numeros_con_un_digito := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de dato: ');
readln (dato);
digitos := 0;
if (dato>-10) and (dato<10) then
begin
digitos := 1;
numeros_con_un_digito := numeros_con_un_digito+1;
end;
if ((dato<=-10) and (dato>-100)) or ((dato>=10) and (dato<100)) then
begin
digitos := 2;
numeros_con_dos_digitos := numeros_con_dos_digitos+1;
end;
if ((dato<=-100) and (dato>-1000)) or ((dato>=100) and (dato<1000)) then
begin
digitos := 3;
numeros_con_tres_digitos := numeros_con_tres_digitos+1;
end;
if ((dato<=-1000) and (dato>-100000)) or ((dato>=1000) and (dato<10000)) then
begin
digitos := 4;
numeros_con_cuatro_digito := numeros_con_cuatro_digito+1;
end;
if ((dato<=-10000) and (dato>-1000000)) or ((dato>=10000) and (dato<100000)) then
begin
digitos := 5;
end;
if ((dato<=-100000) and (dato>-10000000)) or ((dato>=100000) and (dato<1000000)) then
begin
digitos := 6;
end;
writeln ('Valor de digitos: ', digitos);
writeln;
end;
writeln ('Valor de numeros con cuatro digito: ', numeros_con_cuatro_digito);
writeln ('Valor de numeros con dos digitos: ', numeros_con_dos_digitos);
writeln ('Valor de numeros con tres digitos: ', numeros_con_tres_digitos);
writeln ('Valor de numeros con un digito: ', numeros_con_un_digito);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var dato, digitos, i, n, numeros_con_cuatro_digito : integer;
var numeros_con_dos_digitos, numeros_con_tres_digitos, numeros_con_un_digito : integer;
begin
numeros_con_cuatro_digito := 0;
numeros_con_dos_digitos := 0;
numeros_con_tres_digitos := 0;
numeros_con_un_digito := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de dato: ');
readln (dato);
digitos := 0;
if (dato>-10) and (dato<10) then
begin
digitos := 1;
numeros_con_un_digito := numeros_con_un_digito+1;
end;
if ((dato<=-10) and (dato>-100)) or ((dato>=10) and (dato<100)) then
begin
digitos := 2;
numeros_con_dos_digitos := numeros_con_dos_digitos+1;
end;
if ((dato<=-100) and (dato>-1000)) or ((dato>=100) and (dato<1000)) then
begin
digitos := 3;
numeros_con_tres_digitos := numeros_con_tres_digitos+1;
end;
if ((dato<=-1000) and (dato>-100000)) or ((dato>=1000) and (dato<10000)) then
begin
digitos := 4;
numeros_con_cuatro_digito := numeros_con_cuatro_digito+1;
end;
if ((dato<=-10000) and (dato>-1000000)) or ((dato>=10000) and (dato<100000)) then
begin
digitos := 5;
end;
if ((dato<=-100000) and (dato>-10000000)) or ((dato>=100000) and (dato<1000000)) then
begin
digitos := 6;
end;
writeln ('Valor de digitos: ', digitos);
writeln;
end;
writeln ('Valor de numeros con cuatro digito: ', numeros_con_cuatro_digito);
writeln ('Valor de numeros con dos digitos: ', numeros_con_dos_digitos);
writeln ('Valor de numeros con tres digitos: ', numeros_con_tres_digitos);
writeln ('Valor de numeros con un digito: ', numeros_con_un_digito);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.