Задача №1 Найти max (x, y) +5; (max – это максимальное) Задача №2 Вычислить min (a + b + c, a*b*c) - 4

1

Ответы и объяснения

  • Tlalok
  • почетный грамотей
2013-03-11T14:59:22+00:00

//первая программа

var

  x, y:integer;

begin

  write('x = '); readln(x);

  write('y = '); readln(y);

  if x > y then

    writeln('Max(', x, ', ', y, ') + 5 = ', x + 5)

  else

    writeln('Max(', x, ', ', y, ') + 5 = ', y + 5)

end.

 

//вторая программа

var

  a, b, c:integer;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  write('c = '); readln(c);

  if a + b + c < a * b * c then

    writeln('Min(a + b +c; a * b * c) - 4 = ',  a + b + c - 4)

  else

    writeln('Min(a + b +c; a * b * c) - 4 = ', a * b * c - 4)

end.