Проверить являются ли заданные три числа взаимно простыми - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Написать программу в паскаль абс и составить блок-схему

Решение задачи: «Проверить являются ли заданные три числа взаимно простыми»

textual
Листинг программы
Function Check(a,b : Longint) : Boolean;
Var i : Longint;
Begin
  Check:=True;
  For i:=2 to b do If ((a mod i)=0) and ((b mod i)=0) then
  Begin
    Check:=False;
    Break;
  end;
end;

Объяснение кода листинга программы

В данном коде описывается функция Check, которая принимает два аргумента типа Longint - a и b. Функция возвращает логическое значение True, если числа a и b являются взаимно простыми, и False в противном случае. Внутри функции используется цикл For, который выполняется от 2 до b. На каждой итерации цикла проверяется, делится ли a на текущее значение i без остатка, а также делится ли b на i без остатка. Если оба условия выполняются, то функция Check возвращает логическое значение False и прерывает выполнение цикла с помощью оператора Break. Таким образом, данный код проверяет, являются ли заданные три числа взаимно простыми.

Оцени полезность:

5   голосов , оценка 3.4 из 5
Похожие ответы