Исходная программа была совершенно безумной, пришлось поправить.
program lab3;
label
loop,fin;
var
x,y:real;
begin
writeln('vvedite x'); readln(x);
loop:
if x>1 then goto fin;
if 1.5*x<1 then y:=1.5*x-ln(1.5*x)/ln(10)
else
if 1.5*x>1 then y:=1.5*x+ln(1.5*x)/ln(10)
else y:=1;
writeln('x=',x:0:1,', y=',y:5:3);
x:=x+0.1;
goto loop;
fin:
end.
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(15, -5, 5);
a.Println
end.
<h2>-1 3 -2 -5 -2 -5 5 0 -5 4 -3 1 0 0 5</h2>
Максимальное число, которое может получиться 9+9=18 т.к 99 - максимальное двузначное число, а наименьшее: 1+0=1 (число 10).
211 может получиться, например при числах 56 и 20
1717 может получиться, например при числах 89 и 89
1817 не может получиться, т.к числа записываются в порядке возрастания(неубывания).
1718 может получиться, например при числах 98 и 99
1719 не может получиться, т.к (19>18)
219 не может получиться, т.к (19>18)
21 не может получиться, т.к числа записываются в порядке возрастания(<span>неубывания)</span>.
10 не может получиться, т.к (0<1)
Ответ: 3
Проведем упрощения.
Оба выражения свелись к одному и тому же. Его функциональная схема дана во вложении.