Var
a,b,c:Integer;
Begin
Read(a,b,c);
if (a*b > c*2-b) then Writeln(a+b)
else Writeln(b+c);
end.
Ответ на твой вопрос думаю такой - 1100110
<u>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrReal('Введите 20 произвольных чисел:',20);
Writeln('Предпоследнее число равно ',a[18])
end.
Ну смотри ,легче всего предположить что апельсины по 5 ,так как их 3 и сумма 15,дале если мы узнали ,мы можем предположить что персики по 2 , так как их сумма 4, чтобы удостовериться предпологаем что киви 3 ,так как апельсин 5 +3 =8 , Проверяем персики + киви ,это равно 2+3+1 ,дальше по горизонтали Апельсин 5 + киви 3 ,сходится , 5 +2 +2 =9,тоже сходится , следовательно клубника очевидно равна 1 , проверяем 5+1+2=8, 1+3+2=6 ,сходится,вот и решение
Он опоздал на урок-исстинное
Он не делал задания-ложное
ПЖ отметь как лучший