Регистрация
opakp9726
30.08.2020 10:08
Информатика
Есть ответ 👍

выполнить задания выполнить задания! ">

207
416
Посмотреть ответы 1

Ответы на вопрос:

полина2124
полина2124
4,4(47 оценок)

var

  x, y, z, p : real;

function max (a, b : real) : real;

begin

  if a > b then max : = a else max : = b;

end;

function min (a, b : real) : real;

begin

  if a < b then min : = a else min : = b;

end;

begin

  read (x, y, z);

  if z < 0 then p : = max (x, y) else p : = min (x, y);

  write (p);

end.

Популярно: Информатика