помогите решить сложную задачу

[denny666]

"составить программу, проверяющую, являются ли данные три числа взаимно простыми

[sheka]

ты хоть сам пробовал решить эту "сложную задачу", чтобы мы "ПОМОГЛИ ее ТЕБЕ решить"?
если нет, можешь обратиться Icq 255507394

[denny666]

да пробовал, идея была в том что бы через процедуру найти максимальное из этих трех чисел и потом циклом забабахать от i=2 до макс пока все эти три числа не будут делится на i без остатка, а если делятся значит числа не взаимнопростые..тока я этого не умею...с теоретикой у мну на 1, а практика на нуль

[DM_bite]

да пробовал, идея была в том что бы через процедуру найти максимальное из этих трех чисел

Функцию тогда уж, как будешь возвращать максимум-то?

function MaxThree(a,b,c: integer): integer;
begin
if (a>b) and (a>c) then MaxThree:= a;
if (b>a) and (b>c) then MaxThree:= b;
if (c>a) and (c>b) then MaxThree:= c;
end;

[Daramant]

Так будет оптимальнее:

function MaxThree(a,b,c: integer): integer;
begin
  if (a>b) and (a>c) then 
    MaxThree:= a
  else
  if (b>a) and (b>c) then 
    MaxThree:= b
  else
    MaxThree:= c;
end;

P.S. Два числа называются взаимно простыми, если они не имеют никаких общих делителей, кроме 1.
Т.е. надо найти НОД этих чисел, если он = 1 - значит числа взаимно простые, иначе - нет.
НОД можно найти алгоритмом Евклидва.
Аналогично можно попарно проверить и для трех чисел.