Решить задачу с помощью рекурсивной функции или процедуры. Pascal. Сформировать множество...

Question

Решить задачу с помощью рекурсивной функции или процедуры. Pascal. Сформировать множество из цифр натурального числа.

Answer 1

function foo(n: integer): set of integer;

begin

 if n = 0 then result := []

 else

   result := [n mod 10] + foo(n div 10)

end;

begin

 var a := 12345;

 var s: set of integer := [];

 s := foo(a);

 Print(s)

end.