-
Lenguaje
Pascal
-
Descripción
Ingrese por teclado un número natural de hasta 2 cifras, si tiene una cifra muestre lo mínimo que le falta para ser un número de 2 cifras; de lo contrario muestre lo mínimo que le falta para ser un número de 3 cifras.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program NumeroNaturalDeHasta2Cifras;
uses crt;
var numero_de_2_cifras, resultado : integer;
begin
write ('Ingresa el valor de numero de 2 cifras: ');
readln (numero_de_2_cifras);
if numero_de_2_cifras<10 then
begin
resultado := 10-numero_de_2_cifras;
end
else
begin
resultado := 100-numero_de_2_cifras;
end;
writeln ('Valor de resultado: ', resultado);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var numero_de_2_cifras, resultado : integer;
begin
write ('Ingresa el valor de numero de 2 cifras: ');
readln (numero_de_2_cifras);
if numero_de_2_cifras<10 then
begin
resultado := 10-numero_de_2_cifras;
end
else
begin
resultado := 100-numero_de_2_cifras;
end;
writeln ('Valor de resultado: ', resultado);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.