Проверить являются ли заданные три числа взаимно простыми - 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
.
Таким образом, данный код проверяет, являются ли заданные три числа взаимно простыми.