Вычислить значение выражения

@Vlai · Регистрация: 04.03.2012

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

Напишите текст программы а то не в силах
Посчитать значение z=max(a,2b)*max(2a-b,b), де max(x,y) максимальное с чисел x,y.
Заранее спасибо

@rangerx · 04.03.2012, 12:17

Pascal

program prog;
 
function max(x, y: integer): integer;
begin
  if x > y then max:= x
  else max:= y;
end;
 
var
  z: integer;
  a, b: integer;
 
begin
  Write('a: ');
  ReadLn(a);
 
  Write('b: ');
  ReadLn(b);
 
  z:= max(a, 2 * b) * max(2 * a - b, b);
  WriteLn('max(', a, ', 2 * ', b, ') * max(2 * ', a,  ' - ', b, ', ', b, ') = ', z);
end.

@Vlai 0 / 0 / 0 Регистрация: 04.03.2012 Сообщений: 19
		1
	Вычислить значение выражения 04.03.2012, 12:05. Показов 1239. Ответов 1 Метки нет (Все метки) Напишите текст программы а то не в силах Посчитать значение z=max(a,2b)*max(2a-b,b), де max(x,y) максимальное с чисел x,y. Заранее спасибо 0

	04.03.2012, 12:17

Вычислить значение выражения

Решение