Подпрограммы. Написать программу для нахождения суммы большего и меньшего из трех чисел

@Ekaterina13 · Регистрация: 06.05.2012

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

Написать программу для нахождения суммы большего и меньшего из трех чисел. Помогите пожалуйста.Срочно!

@klast · 24.05.2012, 18:12

Pascal

var
  a, b, c: integer;
 
function summa(a, b, c: integer): integer;
var
  max, min: integer;
begin
  if (a <= b) and (a <= c) then min := a;
  if (b <= a) and (b <= c) then min := b;
  if (c <= a) and (c <= b) then min := c;
  // ********
  if (a >= b) and (a >= c) then max := a;
  if (b >= a) and (b >= c) then max := b;
  if (c >= a) and (c >= b) then max := c;
  //
  summa := max + min;
end;
 
begin
  read(a, b, c);
  writeln(summa(a, b, c));
end.

@Ekaterina13 0 / 0 / 0 Регистрация: 06.05.2012 Сообщений: 22
		1
	Подпрограммы. Написать программу для нахождения суммы большего и меньшего из трех чисел 24.05.2012, 16:30. Показов 23949. Ответов 1 Метки нет (Все метки) Написать программу для нахождения суммы большего и меньшего из трех чисел. Помогите пожалуйста.Срочно! 0

	24.05.2012, 18:12

Опции темы

Подпрограммы. Написать программу для нахождения суммы большего и меньшего из трех чисел

Решение