Ввести 4 числа, найти два из них разность между которыми минимальна

@CantyGO · Регистрация: 01.02.2012

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

Ввести 4 числа, найти два из них разность между которыми минимальная. Не очень понятно как это делать, объясните.

@Arcor · 03.02.2012, 03:17

Delphi

program _4_chisla;
var a,b,c,d: Integer; 
begin
  Write('Введите 4 числа через пробел > ');
  ReadLn(a, b, c, d);
  if (Abs(a - b) < Abs(b - c) or Abs(c - d) or Abs(d - a)) then
    WriteLn('Между ', a, ' и ', b, ' разница минимальна')
  else if (Abs(b - c) < Abs(c - d) or Abs(d - a) or Abs(a - b)) then
    WriteLn('Между ', b,' и ', c, ' разница минимальна')
  else if (Abs(c - d) < Abs(b - c) or Abs(d - a) or Abs(a - b)) then
    WriteLn('Между ', c,' и ', d, ' разница минимальна')
  else if (Abs(d - a) < Abs(c - d) or Abs(b - c) or Abs(a - b)) then
    WriteLn('Между ', d,' и ', a, ' разница минимальна')
end.

Добавлено через 3 минуты
else можно удалить, и тогда будет выводить все которые минимальные, т.к. если ввести 1 2 3 4, то получается, что минимальная разница между ними в общем случае 1, а иначе выведет 1 и 2 минимальны

@rassel2012 · 11.02.2013, 22:56

Сообщение от CantyGO

Ввести 4 числа, найти два из них разность между которыми минимальная. Не очень понятно как это делать, объясните.

а можно на С++ написать...очень нужно

@CantyGO 0 / 0 / 0 Регистрация: 01.02.2012 Сообщений: 7
		1
	Ввести 4 числа, найти два из них разность между которыми минимальна 02.02.2012, 22:26. Показов 1164. Ответов 2 Метки нет (Все метки) Ввести 4 числа, найти два из них разность между которыми минимальная. Не очень понятно как это делать, объясните. 0

@rassel2012 0 / 0 / 0 Регистрация: 06.10.2011 Сообщений: 3
	11.02.2013, 22:56	3
	Сообщение от CantyGO Ввести 4 числа, найти два из них разность между которыми минимальная. Не очень понятно как это делать, объясните. а можно на С++ написать...очень нужно 0

Опции темы