Даны четыре натуральных числа. Найти НОД для этих четырех чисел - Pascal
Формулировка задачи:
Решение задачи: «Даны четыре натуральных числа. Найти НОД для этих четырех чисел»
function NOD(x, y: Word): Word;
begin
while (x <> y) do
if (x > y)
then
Dec(x, y)
else
Dec(y, x);
NOD := x;
end;
var
a, b, c, d: Word;
begin
Write('a='); ReadLn(a);
Write('b='); ReadLn(b);
Write('c='); ReadLn(c);
Write('d='); ReadLn(d);
WriteLn('NOD=', NOD(NOD(NOD(c, d), b), a));
end.
Объяснение кода листинга программы
Данный код написан на языке Pascal и предназначен для нахождения наибольшего общего делителя (НОД) для заданных четырех натуральных чисел. В начале кода определена функция NOD, которая принимает два аргумента типа Word (целое число со знаком). Внутри функции используется цикл while, который выполняется до тех пор, пока аргументы x и y не станут равными. Внутри цикла происходит сравнение x и y, и если x больше y, то значение x уменьшается на значение y, и наоборот, если x меньше y, то значение y уменьшается на значение x. После выполнения цикла, значение переменной NOD присваивается значению x. Далее определены четыре переменные типа Word: a, b, c и d. Затем происходит чтение значений этих переменных с помощью функции ReadLn. Значения переменных a, b, c и d сохраняются в соответствующих переменных. Затем выводится сообщение с найденным значением НОД для чисел a, b, c и d с использованием функции WriteLn. Таким образом, данный код находит НОД для заданных четырех натуральных чисел и выводит его значение на экран.