Програмирование ПаскальДано естественное число N. Представить его в виде суммы обычных

Програмирование Паскаль
Дано естественное число N. Представить его в виде суммы обычных натуральных чисел так, чтоб произведение этих слагаемых было очень.
Входные данные
В единственной строке входного файла INPUT.TXT записано одно естественное число N (1 lt; N lt; 2 000 000 000).
Выходные данные
В единственную строчку выходного файла OUTPUT.TXT необходимо вывести обыкновенные числа по возрастанию с указанием их количества при разложении, т.е.: lt;числоgt; lt;количествоgt;.
Образцы
INPUT.TXT OUTPUT.TXT
1 5 2 1 3 1
2 30 3 10


Задать свой вопрос
1 ответ
Очень вероятное творение выходит при разложении на тройки и двойки:
var n, a: longint;
begin
  read(n);
  a := n div 3;
  n := n mod 3;
  if n = 1 then
  begin
    a := a - 1;
    n := n + 3
  end;
  if n gt; 1 then write('2 ', n div 2, ' ');
  if a gt; 0 then write('3 ', a)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт