Самый простой метод: объявить число Pi как константу. Или можно сделать так:
<span>#define _USE_MATH_DEFINES
</span>#include <iostream>
<span>#include <cmath>
#include <math.h></span>
// PascalABC.NET 3.3
begin
var n:=ReadInteger('n = ');
var a:=ArrRandom(n,-10,10); a.Println;
a:=a.Shuffle; a.Println;
a:=a.Where(x->x<>a.Max).ToArray;
a.Println;
end.
Пример:
n = 20
8 -9 1 -5 -5 0 9 -4 -7 -4 -3 9 7 -2 4 6 -2 7 -9 -2
-4 -7 -2 8 9 -3 9 7 4 -9 -2 -2 -4 6 0 1 -5 -5 7 -9
-4 -7 -2 8 -3 7 4 -9 -2 -2 -4 6 0 1 -5 -5 7 -9
A) =D3+$A$2
b) =B2+$a$2
$ - это абсолютная ссылка, т.е. если $ стоит перед буквой, то не меняется буква, куда бы ячейку не скопировали, если $ стоит перед цифрой, то не меняется цифра, куда бы ячейку не скопировали. Если $ стоит и перед буквой и перед цифрой, то значения ячейки как бы "заморожены", т.е не меняется ни буква, ни цифра.
Если знака $ нет, то при копировании ячейки влево, меняется буква (увеличивается), вправо - уменьшается. При копировании ячейки вниз увеличивается цифра, на столько значений, на сколько ячеек скопировано. Цифра уменьшается, если копировали ячейку вверх.
Вводим а(3) и б(8)
а меньше пути, значит а:=а*10
3*10 = 30
ответ 30
Надеюсь мое объяснение вам помогло. Буду рад если вы отметите мое решение как лучшее
Program n1;
var x,y: real;
begin
readln(x);
if x>10 then y:=x*x*x+3
else y:=-5;
writeln(y);
end.
