nod 3

Ответ от Георгий Зотиков[гуру]
{нахождение НОД} uses crt; var a, b, c, gcd: integer; function nod(x,y:integer):integer; begin while (x <> 0) and (y <> 0) do if x > y then x := x mod y else y := y mod x; nod := x + y; end; begin cls; write('vvesti 3 chisla --> '); readln(a, b,c); { while (a <> 0) and (b <> 0) do if a > b then a := a mod b else b := b mod a; gcd := a + b; } gcd:=nod(nod(a,b),c); writeln('НОД: ', gcd); readkey; end.