Даны действительные числа х, у, z. Вычислить min2(x + у + z/2, xyz) + 1

@prog159 · Регистрация: 10.03.2014

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

@CodeR · 23.03.2014, 09:35

Pascal

Var x,y,z,min:real;
Begin
    write('x,y,z: ');readln(x,y,z);
    if x+y+z/2<x*y*z then min:=x+y+z/2
     else min:=x*y*z;
    writeln('min2(x + у + z/2, xyz) + 1 = ',min+1:0:3);
    readln;
End.

@prog159 0 / 0 / 0 Регистрация: 10.03.2014 Сообщений: 74
		1
	Даны действительные числа х, у, z. Вычислить min2(x + у + z/2, xyz) + 1 23.03.2014, 08:48. Показов 15410. Ответов 1 Метки нет (Все метки) Даны действительные числа х, у, z. Составить программу, вычисляющую min2(x + у + z/2, xyz) + 1. 0

Опции темы

Даны действительные числа х, у, z. Вычислить min2(x + у + z/2, xyz) + 1

Решение