Скажите что не так в 8-й строчке " Нет перегруженной подпрограммы с таким количеством...

Question

Скажите что не так в 8-й строчке " Нет перегруженной подпрограммы с таким количеством параметров max"
var a, b, c, d, e, f: integer;
function max (x, y: integer): integer;
begin
if x>y then max:=x else max:=y;
end;
begin
readln (a, b, c, d, e);
f:= max(max(a, b), max(c, d),e);
writeln ('f=', f);
end.

Comments

и что нужно добавить или убрать

Answer 1

Надо записать
f:= max(max(max(a, b), max(c, d)),e);

---

---

Comments

да нет? просто у меня это не пишется, и пишет ошибка во времени

---

да нет*

---

а ещё, можно вопрос?

---

const m: array [1..4] of integer = (76, 126, 216, 252);
var i, x, y, z: integer;
procedure nod (a, b: integer; var c: integer);
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
c:=a
end;
begin
x:=m[1];
for i:=2 to 4 do
begin
y:=m[i];
x:=z
end;
writeln ('НОД=', x)
end.

---

у меня пишет что НОД=0

---

я делала по книге

---

что тут не так

---

Так нельзя, комментарий может относиться только в вопросу или ответу, а это посторонний текст. Вы нарушаете Правила, хотите с модераторами поссориться?

---

нет

---

В личку...