Составить прогамму, отысивающую наименьший общий составной делитель натуральных чисел N и M. Paskal

[Frontier]

Доброго времени суток! Люди добрые, помогите, пожалуйста, решить простецкую задачку:

Составить прогамму, отысивающую наименьший общий составной делитель натуральных чисел N и M

заранее огромное спасибо)) мне сказали что нужно использовать операторы Div и Mod, но к великому сожалению, мне это ниочем не сказало

[Nastja]

Program my ;
uses Crt;
var a,b:longint;
function NOD (a,b:longint):longint;
Begin
clrscr;
write('vvedite chisla');
readln(a,b);
begin if a<>0 then NOD:=NOD(b mod a,a)
else NOD:=b; end;
writeln('NOD etih chisel = ', NOD(a,b));
readkey;
end.

Попробуй! Только замени 'a' и 'b' на 'n' и 'm' (по твоему условию) ;-)

[Frontier]

Спасио большое)) но к великому сожалению мне нужно использовать Div и Mod

[alex_fcsm]

var a,b,i,j:integer;

function IsNSimple(x:integer):boolean;
var i:integer;
 begin
  IsNSimple:=false;
  for i:=2 to x-1 do
   if x mod i=0 then IsNSimple:=true;
 end;

begin
writeln('Input m');
readln(a);
writeln('Input n');
readln(b);
if a>b then j:=b else j:=a;
for i:=1 to j do
 if (a mod i=0)and(b mod i=0) then if IsNSimple(i) then begin
                                                         writeln('NOD: ',i);
                                                         break; 
                                                        end;
end.

[Frontier]

Спасибо большое))

[Anna63]

Ребят,подскажите пожалуйста. Что значит function IsNSimple ?

[Serge_Bliznykov]

Что значит function IsNSimple ?

очевидно, что число является составным (т.е. НЕ ПРОСТЫМ).

[Poma][a]

Наверное, можно разбить на множители.. И выбрать два наименьших..