Question

чтобы найти наибольший общий делитель постройте программу используя эту формулу :нод(А,B,C)=нод(нод(А,B,),C).( через программу паскаль) program=Evklid

Answer 1

var a,b,c,x :integer;

function NOD(a,b:integer):integer;
begin
while a<>b do
  if a>b then
    a:=a-b
    else b:=b-a;
Result:=a;
end;

begin
write('Введите a,b,c: ');
readln(a,b,c);
x:=NOD(NOD(a,b),c);
writeln('НОД=',x)
end.