Найти наибольший общий делитель

[sektor2011]

Найти наибольший общий делитель n заданных произвольных натуральных чисел
... если возможно то на си++ ..

[veniside]

// --  --
function gcd(a, b: unsigned): unsigned;
begin
  while ((0 < a) and (0 < b)) do begin
    //
    if (a > b) then
      a := a mod b
    else
      b := b mod a;
  end;
  //
  result := max(a, b);
end;

[sektor2011]

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

// --  --
function gcd(a, b: unsigned): unsigned;
begin
  while ((0 < a) and (0 < b)) do begin
    //
    if (a > b) then
      a := a mod b
    else
      b := b mod a;
  end;
  //
  result := max(a, b);
end;

не понятно а и б это что?

[Stilet]

sektor2011

а ты прокрутись вниз страницы - там подобные темы

unsigned

Чегот я такого в Делфи не припомню... Може в 2010ке есть уже...

[was3110]

Вопросу "не понятно а и б это что?" следует присудить первое место!!!

[veniside]

Може в 2010ке есть уже...

не, это я придумал ) unsigned = cardinal;

Kстати, не заметил, исходная задача для n чисел, а не для двух. Тогда типа так:

const unsigned n = 100;
unsigned A[n];

unsigned gcd(unsigned a, unsigned b) 
{
	while ((0 < a) && (0 < b)) 
	{
		if (a > b) a %= b;
		else	   b %= a;
	}
	return a > b ? a : b;
}

unsigned gcdA(int index) 
{
	return gcd(A[index], (n == index + 1) ? A[index - 1] : gcdA(index + 1));
}

вызывать, естественно, через gcdA(0);