Составить программу для нахождения наименьшего общего кратного четырех натуральных чисел: по формуле нок(a,b)=(ab)/нод(ab) (определить процедуру, распознающую нод двух чисел)

294

470

Посмотреть ответы 2

Ответы на вопрос:

nasten4ik0194

Информатика

4,4(83 оценок)

Uses crt; var a,b,c,d: longint; {нахождение нод 2х чисел по эвклиду} function nod(m,n: longint): longint; begin repeat if abs(m)> abs(n) then m: =m mod n else n: =n mod m; until (m=0) or (n=0); nod: =abs(m+n); end; begin clrscr; write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); write('d='); readln(d); writeln; writeln('nod(a,b,c,d)=',nod(nod(a,b),nod(c,; readln end.