-
Lenguaje
Pascal
-
Descripción
Ingresar un número de 3 dígitos: Si la suma de sus dígitos es un número múltiplo de 3, mostrar cuánto le falta a la unidad del número para hacer de dos dígitos. Caso contrario, mostrar la potencia de la centena elevado a la decena.
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
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
program OperacionesConDecenasCentenasYUnidades;
uses crt, math;
var centena, decena, numero_de_3_digitos, resultado, unidad : integer;
begin
write ('Ingresa el valor de numero de 3 digitos: ');
readln (numero_de_3_digitos);
unidad := numero_de_3_digitos mod 10;
decena := (numero_de_3_digitos mod 100-unidad) div 10;
centena := (numero_de_3_digitos mod 1000-numero_de_3_digitos mod 100) div 100;
if (centena+decena+unidad) mod 3=0 then
begin
resultado := (10-unidad) mod 10;
end
else
begin
resultado := power(centena,decena);
end;
writeln ('Valor de centena: ', centena);
writeln ('Valor de decena: ', decena);
writeln ('Valor de resultado: ', resultado);
writeln ('Valor de unidad: ', unidad);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt, math;
var centena, decena, numero_de_3_digitos, resultado, unidad : integer;
begin
write ('Ingresa el valor de numero de 3 digitos: ');
readln (numero_de_3_digitos);
unidad := numero_de_3_digitos mod 10;
decena := (numero_de_3_digitos mod 100-unidad) div 10;
centena := (numero_de_3_digitos mod 1000-numero_de_3_digitos mod 100) div 100;
if (centena+decena+unidad) mod 3=0 then
begin
resultado := (10-unidad) mod 10;
end
else
begin
resultado := power(centena,decena);
end;
writeln ('Valor de centena: ', centena);
writeln ('Valor de decena: ', decena);
writeln ('Valor de resultado: ', resultado);
writeln ('Valor de unidad: ', unidad);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.