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

[СТАНИСЛАВ]

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

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

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


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

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

[kornet]

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

помогите с решением

program zada4a;

var a, b, c : integer;
          z : string;

 procedure caution (a, b, c : integer);

 var d, e, f, g, num : integer;
              x : Boolean;

 begin

    e := 1;
    f := 1;
    g := 1;


     num := 31000;
       x := (e = 0) and (f = 0) and ( g = 0);

     while (x <> True) and (num <> 1) do begin

     e := a mod num;
     f := b mod num;
     g := c mod num;

       x := (e = 0) and (f = 0) and ( g = 0);
     num := num - 1;

     end;

     if (x = false ) then
       begin

     Writeln ('Eti 4isla vzaimno prostie');
        end

        else if (x = true) then
        begin

            Writeln ('Eti 4isla ne vzaimno prostie');

             end;

             end;



       begin

       Writeln ('Enter ');

       Readln (a, b, c);

       caution (a, b, c);

       readln (z);

       end.

P.S. Я сам только учу Паскаль... Возможно эту прогу можно написать более лучшим способом.
P.S.S. Поменял местами true и false...теперь вроде бы правильно.

Сообщение отредактировано: volvo - 5.11.2006 16:17