Дано натуральное число N. Наити все простые натуральные делители этого числа..

@Insane300 · Регистрация: 10.10.2009

Author24 — интернет-сервис помощи студентам

Дано натуральное число N. Наити все простые натуральные делители этого числа..

заранее спасибо!!!

@Puporev · 10.10.2009, 23:07

Pascal

uses crt;
var a,n:Longint;
    b:boolean;
begin
clrscr;
write('a=');readln(a);
n:=2;
while a>0 do
 begin
  b:=true;
  while n <= round(sqrt(a)) do
   begin
    if a mod n=0 then
     begin
      write(n,' ');
      a:=a div n;
      b:=false;
      break;
     end;
    inc(n);
   end;
  if b then
   begin
    write(a);
    break;
   end;
 end;
readln
end.

@Insane300 · 10.10.2009, 23:19 **[ТС]**

Сообщение от Puporev

while n <= round(sqrt(a)) do

а что на этом этапе делается??

@TAVulator · 10.10.2009, 23:20

Сообщение от Insane300

а что на этом этапе делается??

цикл с предусловием

@Puporev · 10.10.2009, 23:22

Пока вероятные делители не превышают корня из данного числа, дальше проверять нет смысла.

@Insane300 3 / 3 / 0 Регистрация: 10.10.2009 Сообщений: 16
		1
	Дано натуральное число N. Наити все простые натуральные делители этого числа.. 10.10.2009, 22:27. Показов 5540. Ответов 4 Метки нет (Все метки) Дано натуральное число N. Наити все простые натуральные делители этого числа.. заранее спасибо!!! 1

@Insane300 3 / 3 / 0 Регистрация: 10.10.2009 Сообщений: 16
	10.10.2009, 23:19 [ТС]	3
	Сообщение от Puporev while n <= round(sqrt(a)) do а что на этом этапе делается?? 1

@TAVulator ⚽ 4190 / 1291 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	10.10.2009, 23:20	4
	Сообщение от Insane300 а что на этом этапе делается?? цикл с предусловием 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	10.10.2009, 23:22	5
	Пока вероятные делители не превышают корня из данного числа, дальше проверять нет смысла. 2

Дано натуральное число N. Наити все простые натуральные делители этого числа..

Решение