// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var a,b,c:real; Read(a,b,c); // не вводить одинаковых! if a>b then if a>c then // a > [b,c] if b>c then Writeln('Среднее - второе число') else Writeln('Среднее - третье число') else Writeln('Среднее - первое число') else if b>c then // b > [a,c] if a>c then Writeln('Среднее - первое число') else Writeln('Среднее - третье число') else Writeln('Среднее - второе число') end.
1)наливаем варенье в 3л банку ( ост ещ 5л) 2) переливаем из 3л банки в 5л банку - в итоге в 5л банке 3 литра( ост ещ 5 л) 3)наливаем ещ в 3л литровую банку - в итоге в 5л банке у нас 3литра и в 3л банке у нас 3 литра ( ост ещ 2 л) 4) заполним из 3л банки 5л банку - в итоге у нас полная 5л банка, а в 3л л банке у нас 1 литр ( ост ещ 2л) 5) пусть Фрейки съест 1литр варенья из 3л банки - в итоге Френки съела 1л,Карлосон 0 , также есть полная 5л банка ( ост 2 л) 6) наполним 3л банку из 5л банки - в итоге в 3л банке у нас 3литра, а в 5л банке у нас 2 литра( 2л ост) 7)Френки уже съела 1л, теперь пусть она съест всю 3л банку - т.е. она уже съела свои 4кг 8)остально съедает Карлосон
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,c:real;
Read(a,b,c); // не вводить одинаковых!
if a>b then
if a>c then // a > [b,c]
if b>c then Writeln('Среднее - второе число')
else Writeln('Среднее - третье число')
else Writeln('Среднее - первое число')
else
if b>c then // b > [a,c]
if a>c then Writeln('Среднее - первое число')
else Writeln('Среднее - третье число')
else Writeln('Среднее - второе число')
end.