Заданы числа x, y, z. Если x<0, то P задать как максимальное из x и y; если x>0или=0, то P задать как минимальное из y, z.
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
сами такое же писали на прошлой неделе))училка разбирала)
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
