Определить максимальное значение

@Navigator · Регистрация: 10.11.2011

Author24 — интернет-сервис помощи студентам

Даны действительные числа x,y,z.Получить:max(x+y+z;x*y*z)
Заранее благодарю)

@Jetu · 18.12.2011, 18:17

по точнее скажите что получить то ?

@Navigator · 18.12.2011, 22:36 **[ТС]**

Получить:max(x+y+z;x*y*z)

@Andyc · 18.12.2011, 23:11

Pascal

program mat001;
uses crt;
var
  x,y,z,s,p: Real;
begin
  ClrScr;
  Write('Введите x = ');
  Readln(x);
  Write('Введите y = ');
  Readln(y);
  Write('Введите z = ');
  Readln(z);
  s:=x+y+z;
  p:=x*y*z;
  Write('Максимальное значение ');
  if s>p  then Write('x+y+z = ', s:10:6)
  else Write('x*y*z = ', p:10:6);
  Readkey;
end.

@Navigator · 19.12.2011, 00:20 **[ТС]**

Спасибо)

@Navigator 1 / 1 / 0 Регистрация: 10.11.2011 Сообщений: 22
		1
	Определить максимальное значение 18.12.2011, 18:15. Показов 1188. Ответов 4 Метки нет (Все метки) Даны действительные числа x,y,z.Получить:max(x+y+z;xyz) Заранее благодарю) 0

@Jetu касаткО 51 / 51 / 4 Регистрация: 01.10.2011 Сообщений: 227
	18.12.2011, 18:17	2
	по точнее скажите что получить то ? 0

@Navigator 1 / 1 / 0 Регистрация: 10.11.2011 Сообщений: 22
	18.12.2011, 22:36 [ТС]	3
	Получить:max(x+y+z;xyz) 0

@Navigator 1 / 1 / 0 Регистрация: 10.11.2011 Сообщений: 22
	19.12.2011, 00:20 [ТС]	5
	Спасибо) 0

Определить максимальное значение

Решение