Задать вопрос
9 октября, 22:03

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

+1
Ответы (1)
  1. 10 октября, 01:50
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Напишите логическую функцию которая определяет являются ли два переданные ей числа взаимно простыми, то есть, не имеющими общих делителей, ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы