Регистрация
nastyazhovnirenko
25.06.2023 20:54
Информатика
Есть ответ 👍

Составить программу(паскаль): даны действительные числа x, y, z. вычислить min2(x+y+z/2, xyz)+1

131
343
Посмотреть ответы 2

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

LadyZed
LadyZed
4,7(80 оценок)

var

  x, y, z, res : real;

 

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

begin

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

end;

 

begin

  read (x, y, z);

  res : =  min2 (x + y + z / 2,  x* y * z)+1;

  writeln (res);

end.

kazah5676446
kazah5676446
4,4(51 оценок)

а=2*30-18

a=42

ответ 42

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