• 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
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.