Дружные братья

@yuivanenko · Регистрация: 09.01.2010

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

Есть три брата. Известно, сколько у каждого из них конфет. Два брата поссорятся, если количество конфет у них отличается больше чем на К. Они могут дарить один другому конфеты. Какое наименьшее количество конфет они должны подарить друг другу, чтобы не поссориться. Если это невозможно сделать - вывести число -1

Для введенных: 1 6 3 2
вывод 2

@кот Бегемот · 04.11.2015, 22:20

Pascal

var
a:array[1..3]of integer;
m1,m2,k,s,i,j,t,sr,r,rez:integer;
begin
for i:=1 to 3 do
read(a[i]);
readln(k);
for i:=1 to 2 do
 for j:=2 to 3 do
 if a[j]<a[j-1] then begin
 t:=a[j];
 a[j]:=a[j-1];
 a[j-1]:=t;
 end;
 r:=k div 2;
 if a[3]-a[1]>2*r then begin
 s:=a[1]+a[2]+a[3];
 sr:=s div 3+s mod 3;
 m1:=s div 3-r;
 rez:=m1-a[1];
 if a[2]<sr then m2:=sr-a[2];
 rez:=rez+m2;
 end
 else rez:=0;
 writeln(rez);
 end.

@yuivanenko 34 / 33 / 12 Регистрация: 09.01.2010 Сообщений: 202
		1
	Дружные братья 03.11.2015, 23:04. Показов 1169. Ответов 1 Метки нет (Все метки) Есть три брата. Известно, сколько у каждого из них конфет. Два брата поссорятся, если количество конфет у них отличается больше чем на К. Они могут дарить один другому конфеты. Какое наименьшее количество конфет они должны подарить друг другу, чтобы не поссориться. Если это невозможно сделать - вывести число -1 Для введенных: 1 6 3 2 вывод 2 0

	04.11.2015, 22:20

Опции темы

Дружные братья

Решение