Question

напишите логическую функцию которая определяет являются ли два переданные ей числа взаимно простыми, то есть, не имеющими общих делителей, кроме 1. (На языке Паскаль)

Answer 1

function IsPrimes(m,n:longint):boolean;
begin
  while m <> n do
    if m > n then m := m - n else n := n - m;
  IsPrimes:=(m=1)
end;
{ пример вызова функции }
var
  a,b:longint;
begin
  Write('Введите пару целых чисел: ');
  Read(a,b);
  if IsPrimes(a,b) then Writeln('Числа взаимно простые')
  else Writeln('Числа не взаимно простые')
end.