• PASCAL
    На вход с клавиатуры получаем число, не превосходящее 10^9. Вывести все его простые делители, между ними - звездочки. Например, для числа 36 выводом должно быть 2*2*3*3.

Ответы 6

  • В математике - знаю, про решето Эратосфена знаю, как это перенести в паскаль - нет, как еще и сделать это эффективно - тем более.
    • Автор:

      hanna2ng4
    • 5 лет назад
    • 0
  • В Pascal ABC.net, в примерах есть программа "Решето Эратосфена". Понятия не имею, что это=D
    • Автор:

      aries
    • 5 лет назад
    • 0
  • Если ты до того, как определить, простое ли большое число, своими силами дошел, это, конечно, хорошо, но что ты тогда на этом сайте забыл? Здесь вроде как помогают понять как делать, а "решения в уме" полезны только тому, кто их умеет совершать.
  • Repeati:=i+2; - прибавляем двойку, чтобы исключить нечётные числа, т.к. все 2 мы исключили в предыдущем цикле While A mod i = 0 do Если A не делится на i нацело, то цикл repeat ещё раз прибавит к i двойку Begin S:=S+'*'+IntToStr(i); Если A делится нацело на i, то i будет выведено на экран A:=A div i Переменная A разделится на i, и цикл While снова проверит, делится ли A на то же самое i, ещё, если же нет, i снова увеличится EndUntil i>N;
    • Автор:

      elliott40
    • 5 лет назад
    • 0
  • Спасибо.
    • Автор:

      devynlynn
    • 5 лет назад
    • 0
  • __________________________
    answer img
  • Добавить свой ответ

Войти через Google

или

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

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

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