Напишите логическую функцию которая определяет являются ли два переданные ей числа...

Question

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

Comments

Язык программирования забыли указать Опять напишут Вам ответ на С# или Ruby...

---

Паскаль

---

Не тут писать надо, а в задании поправить

---

как редоктировать??

---

Должна быть опция "Исправить", если Вы не с мобилки

---

знаете решение?

---

Конечно, задача же элементарная, проверить, равен ли НОД пары числе единице.

---

А НОД - это алгоритм Евклида

---

Напишите пожалуйста решение от начала до конца, пожалуйста, я буду оочень благодарна)

---

я просто информатику вообще не понимаю(((

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.

Comments

Огромнейшее спасибо)

---

Мне блин ещё одну надо решить, поможете?

---

Вы без "блинов", пожалуйста, соблюдайте культуру общения на Сервисе. А по поводу задач - просто выкладывайте их, а кто и когда решит - видно будет.

---

По поводу "спасибо" - для этого тут есть синяя кнопочка. Да и размер "спасибо" можно выражать количеством звездочек.

---

теперь буду знать