Програма для нахождения НОД трех чисел

[Draips]

Составить программу для нахождения НОД трех чисел в паскале

[ROMA2PVT]

С массивом сойдёт?

[Draips]

Конечно,хоть с чем

[ROMA2PVT]

program ds;
uses crt;
Const
n=3;
var
A:array [1..100] of integer;
i:integer;
function Nod(a,b:integer):integer;
begin
while (a<>0) and (b<>0) do
if a>b then a:=a mod b else b:=b mod a;
if a=0 then nod:=b else nod:=a;
end;
begin
clrscr;
for i:=1 to n do
begin
write('Введите ',i,' число: ');
readln(A[i]);
end;
for i:=1 to n do
A[1]:=nod(A[1],A[i]);
write('НОД 3-х чисел: ',A[1]);
readkey;
end.

Незабудь отзыв оставить.