Напишите рекурсивную функцию, которая раскладывает число на простые сомножители. пример: введите натуральное число: 378 378 = 2*3*3*3*7

Вариант без рекурсии - как просил позже 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.

04₁₀ = 100₂

10₁₀ = 1010₂

1996₁₀ = 11111001100₂

 

 

50зн=50байт

60зн=60байт

1кбайт= 1024байта

1мб=1024кбайта

=> 1мбайт=(1024*1024)байт

1мбайт=1048576 байт

50байт/1048576байт=0,0000476837мбайт

60байт/1048576байт=0,0000572205мбайт