• Lenguaje

    Pascal

  • Descripción

    Solicitar el ingreso de un valor numérico de 4 dígitos e indicar si la suma de sus dígitos es mayor, menor o igual a 20.

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
program SumaDeUnNumeroDe4Digitos;
uses crt;

var numero_de_4_digitos, suma : integer;
begin
    write ('Ingresa el valor de numero de 4 digitos: ');
    readln (numero_de_4_digitos);
    suma := (numero_de_4_digitos mod 10000-numero_de_4_digitos mod 1000) div 1000+(numero_de_4_digitos mod 1000-numero_de_4_digitos mod 100) div 100+(numero_de_4_digitos mod 100-numero_de_4_digitos mod 10) div 10+numero_de_4_digitos mod 10;
    if suma>20 then
        begin
            writeln ('La suma es mayor a 20');
        end;
    if suma=20 then
        begin
            writeln ('La suma es igual a 20');
        end;
    if suma<20 then
        begin
            writeln ('La suma es menor a 20');
        end;
    writeln ('Valor de suma: ', suma);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.