Определить, больше ли сумма простых делителей числа М, произведения составных делителей числа N.

[Radmir. v]

Помогите решить задачу с процедурами на ABC Паскале, пожалуйста))
Заданы два целых числа М, N. Определить, больше ли сумма простых делителей числа М, произведения составных делителей числа N.

[Serge_Bliznykov]

Radmir. v, задание несложное (хотя есть нюансы в трактовке задания)

Вы хоть что-нибудь написали? Что не получается?

про нюансы. Расскажите, какие простые делители, например, у числа 16 ?

[Mad_Cat]

сумма:=0;
произведение:=1;
Для i = 1 До М 
если i простое то сумма:=сумма+i
иначе произведение:=произведение*i;
Если сумма>произведение то вывод("Больше")
иначе вывод("Не больше");

[Radmir. v]

Вы хоть что-нибудь написали? Что не получается?

Вот мои наброски. мне кажется,что я сделал что-то неправильно((

var
number, delit, temp, sum, pr: integer;
    flag: BOOLEAN;
    procedure A1;
    begin
    readln(number);
while number<>0 do
begin
temp:=number mod 10;
	flag:= true; 		         {предположим, что число простое}
delit:=2;
while flag and (delit<=number div 2) do
           if number mod delit=0 then flag:=false
 else delit:=delit+1;
if flag then sum:=sum+number
        else writeln ('число составное');	{выделение цифры из числа}
number:=number div 10;                         {уменьшение числа на один разряд}
	end;

	end;
	procedure A2;
	  begin
    pr:=1;
readln(number);
while number<>0 do
begin
temp:=number mod 10;
	flag:= true; 		         {предположим, что число простое}
delit:=2;
while flag and (delit<=number div 2) do
           if number mod delit=0 then flag:=false
 else delit:=delit+1;
if flag then  writeln ('число простое')
        else    pr:=pr*number;

number:=number div 10;
	end;

end;
begin
writeln ('Ведите число M') ;
A1;
READLN ;
writeln ('Ведите число N') ;
A2;
READLN ;
 if sum>pr then writeln ('верно')
           else  writeln ('неверно') ;
END.

[Radmir. v]

Сообщение от Radmir. v

Помогите решить задачу с процедурами на ABC Паскале, пожалуйста))
Заданы два целых числа М, N. Определить, больше ли сумма простых делителей числа М, произведения составных делителей числа N.

Ребятаа, помогите... ну очень нужно...

[Serge_Bliznykov]

ой. вижу, что пытались.
Но, к сожалению, исправить ваш код не могу, уровня мастерства не хватает....

может быть, такой вариант устроит?

function isPrime(X: LongInt): boolean;
var i, sqrtX: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     sqrtX := trunc(sqrt(x));
     while i <= sqrtX  do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;


procedure SumOfSimple(M : integer; var Sum : integer);
var i : integer;
begin
  Sum := 0;
  for i := 1 to trunc(sqrt(M)) do
    if M mod i = 0 then
      if isPrime(i) then Sum := Sum + i;
  if isPrime(M) then Sum := Sum + M;
end;

procedure MultiplyOfNotSimple(N : integer; var Pr : integer);
var i : integer;
begin
  Pr := 1;
  for i := 1 to trunc(sqrt(N)) do
    if N mod i = 0 then
      if not isPrime(i) then Pr := Pr * i;
  if not isPrime(N) then Pr := Pr * N;
end;

var N,M, S, Pr : integer;
begin
  writeln('Ведите число M');
  ReadLn(M);
  writeln('Ведите число N');
  ReadLn(N);

  SumOfSimple(M, S);
  MultiplyOfNotSimple(N, Pr);
  
  if S > Pr then writeln('верно')
  else writeln('неверно');
  
end.