Question

Решите задачу в Паскаль

Answer 1

Ответ:

begin

 var x, y, z:integer;

 read(x, y, z);

 write(max(min(x, y), z) / 3);

end.

//PascalABC.NET