Ребята помогите где тут ошибка? Program D; var a,b,c:integer; integer :NOD ('m,n'); begin...

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'', а ожидалось ':'

Comments

integer :NOD ('m,n'); - недопустимая конструкция в Паскале

---

rogram : D;var a,b,c:integer;function NOD(m,n:integer):integer;beginwhile m<>n doif m>n then m:=m-n else n:=n-m;NOD:=m;end;beginwrite('a=');read(a);write('b=');read(b);write('c=');read(c);writeln;writeln('NOD(a,b,c)=',NOD(NOD(a,b),c));end.

---

Каким слово можно заменить fanction, а то мы его не проходили?

---

Во-первых, вы его неверно пишете, а во-вторых это описание специальной подпрограммы, называемой функцией. Без нее нельзя тут, потому что к ней дважды идет обращение.

---

А то, что Вы не учили функции - это ваша беда...

---

Спасибо вам за помощь

---

помогите решить, как можно быстрее заранее спасибо

---

благодарность лучше выражать нажатием "сердечка" возле ответа и кнопочкой - Лучшее решение ;-)

Answer 1

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

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