Простые делители натуральных чисел

sanek_next1

Привет всем кого застал=) Подскажи те пожалуйста решение задачки может она и простая но я уже 2-ой день на дней торчу а дальше прогресса нет. кому не сложно. Буду очень признателен. Условие "Составте программу вычисления суммы простых делителей натурального числа М (М>2)"
2 ответа

sanek_next1

BumerangSP, Спасибо большущеееее))) Если не затруднит гляньте вот эту задачку) С математикой совсем дела плохи.


sanek_next1

uses crt;
var i,j,s,m: integer;
    b: boolean;
begin
 clrscr;
 readln(m);
 s:=0;
 for i:=2 to m do
 begin
  b:=false;
  for j:=2 to i div 2 do
   if i mod j=0 then
    b:=true;
   if (b=false) and (m mod i=0) then
    s:=s+i;
 end;
 writeln('Сумма = ',s);
 readln;
end.