1. Информатика
  2. Решить с рекурсивной функции

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

romamrn romamrn    1   04.10.2019 20:30    1

Ответы
helpmeplsaaa helpmeplsaaa  09.10.2020 20:23

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ezaovabiana ezaovabiana  08.09.2019 13:10
Сколько кбайтов составляют 2^13 битов...
abduleuloew201 abduleuloew201  08.09.2019 13:10
Сколько килобайтов содержатся в 16384 битах...
eromadima eromadima  08.09.2019 13:10
Сwhile и for (2 программы) напишите программу вывода всех чисел в диапазоне от 5 до 55 включительно....
хорошист378 хорошист378  08.06.2019 18:50
Десятичное число 57 в некоторой системе счисления записывается как 212. определите основание системы счисления...
ойооы ойооы  08.06.2019 18:50
Всистеме счисления с основанием n запись числа 41 в десятичной системе оканчивается на 2 , а запись числа 131 в в десятичной системе - на 1 . чему равно число n....
Angel28648 Angel28648  08.06.2019 18:50
Вычислить на pascal : 1+2+4+8++2^10...
микки37 микки37  19.05.2020 02:30
Найти и исправить ошибку в алгоритме. Задание: Составить алгоритм (цикл с параметром) вычисления суммы и произведения ряда 1, 3, 5,..., (2n+1)​...
mirpodrostka mirpodrostka  19.05.2020 02:31
Ввести с клавиатуры три года рождения. Программа должна проверить есть ли среди них номер ваш год рождения. Если есть то на экран вывести сообщение: ГОД ВАШЕГО РОЖДЕНИЯ...
Boss21888 Boss21888  19.05.2020 02:45
Элементам массива присвоены следующие значения: M[2]: = 17; M[3]: = 9; M[4]: = 18; M[5]: = 2; M[6]: = 6. Затем выполняют следующие команды: С: = 0; for i : = 2 to 6 do...
tarabrinadasha tarabrinadasha  30.03.2021 15:35
составить программу на Паскале, когда дан массив от 1 до 10 в диапозоне -50 и +50 и сделать так ,чтобы в ответе было: 5 цифр в строчку и 2 в столбик ,сумма мин и маx, и...

Популярные вопросы