Question

Даю 100 баллов прошу помогите или объясните!!! Pascal
1. Составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: НОД(A,B,C) = НОД(НОД(A,B),C).
Только по простому, funtion ещё не проходили
По этому алгоритму

Answer 1

Program Evklid;

var  

 A,B,C:longint;

begin

 writeln('Введите A, B и C');

 readln(A,B,C);

 while A<>B do

   begin

     if A>B then

       A:=A-B

     else

       B:=B-A;

   end;

 while C<>A do

   begin

     if C>A then

       C:=C-A

     else

       A:=A-C;

   end;

 writeln('НОД = ',C);

end.

Answer 2

Предположим,

M=24

N=16

М<>N условие выполняется? Да

M>N условие выполняется? Да

M:=M-N значит

M=24-16=8

М<>N условие выполняется? Да

M>N условие выполняется? Да

N:=N-M значит

N=16-8=8

М<>N условие выполняется? Нет

Цикл закончился

НОД найден

М=N=8

Выводим результат. Любое N или M