// 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)остально съедает Карлосон
var
a,b:real;
begin
write('1 число: '); readln(a);
write('2 число: '); readln(b);
writeln('Разность: ', a-b);
end.