Вычислить произведение P кубов трех чисел a, b и c, если их сумма меньше нуля, произведение P модулей трех чисел a, b и c, если их сумма больше нуля

@Wolvery · Регистрация: 04.05.2010

Вычислить произведение P кубов трех чисел a, b и c, если их сумма меньше нуля,
произведение P модулей трех чисел a, b и c, если их сумма больше нуля и
произведение P квадратов трех чисел a, b и c, если их сумма равна нулю.

@DeLuxe · 08.07.2010, 15:14

Pascal

uses crt;
var a,b,c:real;
begin
clrscr;
write('a,b,c: ');
readln(a,b,c);
if a+b+c<0 then write('P=',a*a*a*b*b*b*c*c*c)
else if a+b+c>0 then write('P=',abs(a)*abs(b)*abc(c))
else write('P=',a*a*b*b*c*c);
readln
end.

@Wolvery 0 / 0 / 0 Регистрация: 04.05.2010 Сообщений: 29
		1
	Вычислить произведение P кубов трех чисел a, b и c, если их сумма меньше нуля, произведение P модулей трех чисел a, b и c, если их сумма больше нуля 08.07.2010, 15:06. Просмотров 1437. Ответов 1 Метки нет (Все метки) Вычислить произведение P кубов трех чисел a, b и c, если их сумма меньше нуля, произведение P модулей трех чисел a, b и c, если их сумма больше нуля и произведение P квадратов трех чисел a, b и c, если их сумма равна нулю. 0

Опции темы

Вычислить произведение P кубов трех чисел a, b и c, если их сумма меньше нуля, произведение P модулей трех чисел a, b и c, если их сумма больше нуля

Решение