Умнож на 10 и дальше как она писала
Var
x,y:real;
begin
x:=-1;
while x<=1 do begin
Writeln('x=',x:4:1,', y=',x*x*x:9:6);
x:=x+0.1
end
end.
<em><u>Результат выполнения программы:</u></em>
x=-1.0, y=-1.000000
x=-0.9, y=-0.729000
x=-0.8, y=-0.512000
x=-0.7, y=-0.343000
x=-0.6, y=-0.216000
x=-0.5, y=-0.125000
x=-0.4, y=-0.064000
x=-0.3, y=-0.027000
x=-0.2, y=-0.008000
x=-0.1, y=-0.001000
x= 0.0, y= 0.000000
x= 0.1, y= 0.001000
x= 0.2, y= 0.008000
x= 0.3, y= 0.027000
x= 0.4, y= 0.064000
x= 0.5, y= 0.125000
x= 0.6, y= 0.216000
x= 0.7, y= 0.343000
x= 0.8, y= 0.512000
x= 0.9, y= 0.729000
x= 1.0, y= 1.000000
<span>При работе с Панелью форматирования выравнивание осуществляется с помощью расположенных на ней кнопок. Одинарный, по<span>луторный и двойной межстрочные интервалы также можно </span><span>установить с помощью кнопок, предварительно настроив Панельформатирования. Другие межстрочные интервалы можно установить только с помощью диалогового окна. Отступы абзаца и первая <span>строка устанавливаются с помощью Горизонтальной координатной линейки (рис. 14); при этом верхняя метка указывает начало </span>первой (красной) строки, а нижние — ширину абзаца.</span></span><span><span>Чтобы форматирование абзаца происходило в процессе его ввода, </span>следует задать необходимые параметры, а уже затем вводить текст.</span><span>Для форматирования нескольких расположенных друг за дру<span>гом абзацев их необходимо предварительно выделить. При форма<span>тировании одного абзаца достаточно установить курсор в любом </span><span>месте этого абзаца.</span></span></span>
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(31,16,27); a.Println;
var s:=a.Select((x,i)->(x,i)).OrderBy(x->x[0]).Select(x->x[1]+1);
Write('Семь самых холодных дней: '); s.Take(7).Println;
Write('Семь самых жарких дней: '); s.TakeLast(7).Println
end.
<u>Пример</u>
17 17 25 27 22 26 22 23 26 26 25 16 21 25 22 17 20 19 16 19 21 22 19 16 21 27 22 24 22 24 22
Семь самых холодных дней: 12 19 24 1 2 16 18
Семь самых жарких дней: 11 14 6 9 10 4 26