процедуры, три взаимно простых числа Опции

[СТАНИСЛАВ]

Здравствуйте обращаюсь к вам с просьбой помоч в решении.
Дана такая задача:

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

помогите с решением
Как я поня взаимно простые числа это числа которые свободно делятся между собой и делять причём без остатка. Такими числами могут служить 2, 4, 8 все они делятся друг на друго без остатк а это значит, что можно считать их взаимно простыми.Сложность для меня заключается в том что я не понимаю как это выражение представить в виде процедуры и как вообще отобразить её в программе. Подскажите каму по силам эта задача, у тех кого я спрашивал даже не знали с чего сдесь начать вот и я не понимаю.


Пмогите пожалуста.

Сообщение отредактировано: СТАНИСЛАВ - 18.04.2006 21:04

[volvo]

kornet, правда?
А ты проверял свою программу? Какие делители кроме единицы есть у чисел 15, 16, 17 ?

Так что же твоя программа говорит, что они НЕ взаимно простые???

7. Проверяйте программы перед тем, как разместить их на форуме!!!

Это относится ко всем, между прочим, и ты - не исключение...

Написали же, что надо проверять НОД:

function GCD (A: integer;  B: integer): integer;
begin
    while (a <> 0) and (b <> 0) do
       if a >= b then
         a := a mod b
       else
         b := b mod a;
    GCD := a + b;
end;

var a, b, c: integer;
begin
  writeln('enter numbers:'); readln(a, b, c);

  if GCD(a, b) * GCD(a, c) * GCD(b, c) = 1 then writeln('Yes')
  else writeln('No');
end.