Ребята помогите где тут ошибка? 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=...
Ребята помогите где тут ошибка?
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'', а ожидалось ':'
Гость
Ответ(ы) на вопрос:
ГостьОбъявление NOD не верно. если это функция, то надо писать:
function NOD(n: integer; m: integer) : integer;
Не нашли ответ?
Похожие вопросы