Напишите рекурсивную функцию, которая раскладывает число на простые сомножители. пример: введите натуральное число: 378 378 = 2*3*3*3*7
104
436
Ответы на вопрос:
Вариант без рекурсии - как просил позже function factorization ( numeric: integer ): integer; var d: integer; begin write(numeric, ' = 1'); d : = 2; while numeric > 1 do begin if numeric mod d = 0 then begin write (' * ', d); numeric : = numeric div d; end else inc(d); end; end; var x: integer; begin write('введите число: '); readln(x); factorization(x); end.
2. 24
Объяснение:
б =8/2 = 4
а = 3*4=12
остановка при б =2 значит идем по кругу
б= 4/2 =2
а= 12*2=24
Популярно: Информатика
-
иоапгрдгоп17.02.2021 21:41
-
robotkiborg14.01.2023 13:48
-
chelovek7020.10.2020 07:24
-
KADANCHUK01.02.2023 00:32
-
Husky33320.03.2021 17:53
-
Kiska4138406.10.2020 00:43
-
kristok201224.03.2020 06:52
-
KerimovaLuiza91910.12.2022 14:00
-
Alex1t006.05.2022 02:20
-
Юлдуз112222.02.2023 00:09