paul_8
29-01-2013, 16:19
Ппрограмма не может выйти из цикла
d1:=n1;
d2:=n2;
while d1<>d2 do
begin
if d1>d2 then
while (n1 mod d1 )<>0 do
d1:=d1-1;
if d2>d1 then
while (n2 mod d2)<>0 do
d2:=d2-1;
d1 и d2 - НОД(найбольший общий делитель)
n1 n2 числа
d1:=n1;
d2:=n2;
while d1<>d2 do
begin
if d1>d2 then
while (n1 mod d1 )<>0 do
d1:=d1-1;
if d2>d1 then
while (n2 mod d2)<>0 do
d2:=d2-1;
d1 и d2 - НОД(найбольший общий делитель)
n1 n2 числа