Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Напишите логическую функцию которая определяет являются ли два переданные ей числа взаимно простыми, то есть, не имеющими общих делителей, кроме 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.