<span>Var a, b, c, p :longint;
begin
WriteLn('Введите первую сторону треугольника a');
readLn(a);
WriteLn('Введите вторую сторону треугольника b');
readLn(b);
writeLn('Введите третью сторону треугольника c');
readLn(c);
p:=(a+b+c);
writeLn('Периметр треугольника равен ', p);
end.</span>
В 2с/с : 1000 -10 = 110 (в 2/с) - ответ, столько яблок упало (в 2с/с)
Проверка в 10с/с
10 (в2с/с) = 2(в10с/с)
1000 (в2с/с)= 8 (в 10с/с)
8-2=6 (в10с/с) 6(в10с/с)=110 (в 2с/с)
7 больших желтых яблок
все груши большие значит яблок больших 32-17=15
всего плодов 25+17=42 из них 28 желтых значит зеленых 42-28=14
зеленых яблок на 2 больше чем зеленых груш значит яблок зеленых 8 а груш 6
зеленые яблоки все большие значит 15-8=7
ответ 7