Var x,y: real;
begin
readln(x);
y:=x/(1+((x*x)/5+(x*x*x)));
writeln(y);
end.
Какой ДОЛЖЕН БЫТЬ результат - это у Вас в задании написано: сначала то, что Вы введете, а затем оно же, но в обратном порядке. А вот какой он БУДЕТ - это зависит от того, что Вы написали в программе.
В качестве значений для ввода возьмите, например, третье число, затем числа от второго по шестое, а затем все десять из приведенного ниже ряда:
-24 18 18 16 4 -2 16 11 16 -15
Они были получены из программы на Паскале при помощи датчика случайных чисел.
Это это либо скриншот либо обои картинка,,,
Нужно составить уравнения трех прямых, ограничивающих область (см. вложение). А затем можно писать программу. Считаем попаданием в область, если точка находится строго ВНУТРИ треугольника. Если надо учитывать и границы, неравенства будут нестрогими.
<u>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('Введите координаты х и у точки:');
if (y>-3) and (y<5*x/3+2) and (y<-5*x/3+2) then Writeln('попали')
else Writeln('не попали')
end.
var a:array[1..10000] of integer;
x,n,i: integer;
begin
readln(x,n);
for i:=1 to n do a[i]:=x+n-i;
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
6 4
9 8 7 6