Надо найти сколько всего символов, да?
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<em>1. Современное решение, возможно, на первый взгляд непонятное, но зато "в одну строку"</em>
begin
SeqWhile(-2.0,t->t+0.25,t->t<=2.0)
.ForEach(x->Writeln(x:4:1,(x<-1 ? -3*x+2+Sin(x) :
x<0 ? Abs(x) : x*Ln(x+1)):16:12))
end.
<em>2. "Школьный" вариант</em>
var
x,y:real;
begin
x:=-2;
while x<=2 do begin
if x<-1 then y:=-3*x+2+Sin(x)
else
if x<0 then y:=Abs(x)
else y:=x*Ln(x+1);
Writeln(x:4:1,y:16:12);
x:=x+0.25
end
end.
<em>Результат:</em>
-2.0 7.090702573174
-1.8 6.266014053126
-1.5 5.502505013396
-1.3 4.801015380644
-1.0 1.000000000000
-0.8 0.750000000000
-0.5 0.500000000000
-0.3 0.250000000000
0.0 0.000000000000
0.3 0.055785887829
0.5 0.202732554054
0.8 0.419711840952
1.0 0.693147180560
1.3 1.013662770270
1.5 1.374436097811
1.8 1.770301595437
2.0 2.197224577336
Взять саженец←←←←←←←←←←←←←
↓ ↑ ↑
Саженец качественный → нет ↑
↓ ↑
Да ↑
↓ ↑
Выкопать ямку ↑
↓ ↑
Удобрить ↑
↓ ↑
Посадить саженец→→→→→→→→→→→→
<span>1101012 + 101102 = 1202114
</span>1101012 - 101102 = 999910
1325 + 425 = 1750
1325 - 425 = 900