Question

Задание: Найти НОД трех чисел. НОД(а,в,с)=НОД(НОД(а,в),с)

(выполнить в языке программирования Pascal)

Answer 1

//Pascal ABC.NET 3.1 сборка 1219

Var
 a,b,c:integer;

 function nod(a,b:integer):integer;
 begin
  while a*b<>0 do
    if a>b then a:=a mod b else b:=b mod a;
  nod:=a+b;
 end; 
 
begin
 readln(a,b,c);
 writeln(nod(nod(a,b),c));
end.

Пример ввода:
15
25
45
Пример вывода:
5