<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ArrRandom(5,0,15).Println.Aggregate(1,(p,q)->p*q).Println
end.
<u>Пример</u>
6 13 7 2 7
7644
Var a,b,i,z:integer;y,x,h,k:real;
begin
write('введите a,b,h');read(a,b,h); k:=(b - a)/h;z:= round(k);
for i:=0 to z do begin
x:=a + h*i;
y:= x*x *sin(x*Pi/180);
write(x:6);writeln(y:21:6);<span>end;</span>
алг. обход прям.области
нач.
нц пока <продолжается стена> повторять
шаг
кц
поворот
кон.
как то так)
Сравниваешь a и b, большее\меньшее сохраняешь как x
сравниваешь x и с, большее\меньшее сохраняешь как x
x-твое искомое число