Program NumComparison(output);
uses sysutils;
var
num1, num2, nums : string;
i, snum1, snum2 : integer;
begin
writeln('Ingresa el primer número'); readln(num1);
writeln('Ingresa el segundo número'); readln(num2);
(* Obtengo la longitud de ambas cadenas para poder evaluarlas *)
snum1:=length(num1);
snum2:=length(num2);
(* Evaluo que cada número corresponda a lo dicho en el enunciado *)
if (StrToInt(num1) < StrToInt(num2)) and (snum1 < 4) and (snum2 >= 4) then
begin
nums:='';
for i:=1 to snum2 do
begin
(* Si un número esta en el otro y no existe ya en los encontrados *)
if(pos(num2[i], num1) > 0) and (pos(num2[i], nums) = 0) then
(* Concatenamos lo almacenado con el nuevo número encontrado *)
nums:=nums + num2[i];
end;
writeln('Números en común : '); writeln(nums);
end
else
begin
writeln('Asegurese de ingresar los valores correctos'); end;
end.
Crear cuenta
Comentarios sobre la versión: 1.0 (0)
No hay comentarios