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