составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: НОД(А, В, С)=НОД(НОД(А, В), С)"
Паскаль
var a,b,c: integer; function nod(x,y:integer):integer; var t1,t2:integer; begin t1:=x; t2:=y; while t1<>t2 do if t1>t2 then t1:=t1-t2 else t2:=t2-t1; nod:=t1; end; Begin write('a='); readln(a); write('b='); readln(b); write('c='); readln©; writeln('NOD=',nod(nod(a,b),c)); readkey; End.
Не забудьте оценить ответ
Язык какой?