Question

составьте программу нахождения наибольшего общего делителя трех чисел, используя формулу: НОД(А,В,С)=НОД(НОД(А,В),С) используя алгоритм Евклида в Паскале

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

function НОД(a, b: integer): integer;

begin

 while b > 0 do

   (a, b) := (b, a mod b);

 Result := a

end;

begin

 var (a, b, c) := ReadInteger3;

 НОД(НОД(a, b), c).Println

end.

78 294 570

6

Замечание: числа должны быть неотрицательными

Answer 2

надо просто в Паскале без function мы так не проходили

Answer 3

Ну откуда нам знать, что вы проходили, а что нет? В условии это нужно указывать! К тому же, у Вас постановка задачи дана с функцией.