Паскаль

[NAt]

Паскаль

Всем привет, подскажите пожалуйста с задачей: Даны натуральные числа a, b, c. Найти НОД(a, b, c), используя формулу:.НОД(a, b, c) = НОД((a, b), c).
Алгоритм Евклида: НОД(A, B) = НОД(В, А mod В), если B <> 0; НОД(A, 0) = А

 

[Gruvi]

Вот программы.

НОД

uses crt;
function Nod(a,b:integer):integer;{определение НОД двух чисел}
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
Nod:=a;
end;

var a:array[1..100] of integer;
n,i:byte;
k:integer;
begin
clrscr;
write('Введите кол-во элементов n=');
readln;
writeln('Введите элементы массива: ');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a);
end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a,' ');
writeln;
k:=Nod(a[1],a[2]);
for i:=3 to n do k:=nod(k,a);
writeln('Общий НОД всех элементов=',k);
readln
end.

НОД

uses crt;
function NOD(x,y:integer):integer;
Begin
If x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
End;
function NOK(x,y:integer):integer;
Begin
NOK:=(x div NOD (x,y))*y;
end;
var a:array[1..100] of integer;
n,i:byte;
k:integer;
begin
clrscr;
write('Введите кол-во элементов n=');
readln;
writeln('Введите элементы массива: ');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a);
end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a,' ');
writeln;
k:=NOK(a[1],a[2]);
for i:=3 to n do k:=NOK(k,a);
writeln('Общий НОK всех элементов=',k);
readln
end.

 

[NAt]

спасибо за помощь