Перейти к содержимому


- - - - -

Разложение на простые множители


В этой теме нет ответов

#1 yanush

    Пользователь

  • Пользователи
  • PipPip
  • 21 сообщений

Отправлено 22 декабря 2011 - 13:00

Условие: Вывести представление целого числа N в виде произведения простых чисел.
Ограничения: 2 <= N <= 231 - 1.
Ввод: В первой строке находится единственное число N.
Вывод: Выводится список чисел в порядке неубывания, разделённых знаком "*".
Примеры
Ввод 1 Ввод 2
5 30
Вывод 1 Вывод 2
5 2*3*5

var d,x:longint;
begin
readln(x);
d:=2;
while int64(d)*d<=x do
if x mod d =0 then begin
       			x:=x div d;
       			write(d,'*');
       			end
          	else if d=2 then d:=3
                      	else d:=d+2;
write(x);
end.


#2 StepPemia

    Новичок

  • Пользователи
  • Pip
  • 2 сообщений
  • ГородDuverge

Отправлено 08 марта 2020 - 23:28

Zithromax In Children Buy Cialis Cialis Generika Ajanta п»їcialis Keflex For Toddler





Количество пользователей, читающих эту тему: 1

0 пользователей, 1 гостей, 0 анононимных