Question

Где тут ошибка? program d; var a,b,c: integer; integer : nod ('m,n'); begin while m< > n do if m> n then m: =m-n else n: =n-m; nod: =m; end; begin write('a='); read(a); write('b='); read(b); write('c='); read(c); writeln; writeln('nod(a,b,c)=',nod(nod(a,b),c)); end. выдаёт ошибку program1.pas(3) : встречено ''nod'', а ожидалось ': '

Answer 1

Объявление NOD не верно. если это функция, то надо писать:

function NOD(n: integer; m: integer) : integer;