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

Ответы 2

  • Вы меня спасли) Спасибо!
    • Автор:

      tomcat
    • 6 лет назад
    • 0
  • var n:integer;procedure del(x:integer);var d:integer;begind:=2;if(x>1)then begin while x mod d<>0 do d:=d+1; if(x div d >1)then write(d,'*') else write(d); del(x div d)endelse exit;end;beginread(n);write(n, ' = ');if(n<2) then write(n)else del(n);end.
    • Автор:

      majorgsma
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years