Var
A: array [1..10] of integer;
min,i:integer;
begin
i:=1
while i<11 do
begin
readln(A[i]);
i:=i+1;
end;
i:=1;
n:=A[1];
repeat
if min>A[i] then
min:=A[i]
i:=i+1;
until I=10;
A[10]:=min;
end
Const eps=1e-4;
var n,z:integer; x,sx,an,s:real;
begin
x:=0.62;
sx:=sin(x);
n:=1; z:=-1;
an:=1; s:=0;
while abs(an)>eps do
begin
z:=-z;
n:=n+1;
an:=z*sx/(n*(n*n-1));
s:=s+an;
end;
writeln('k = ',n-1,' s = ',s);
end.
Результат:
<span>k = 17 s = 7.92376332816429E-002</span>
<span>Цель запроса на выборку состоит в создании результирующей таблицы, в которой отображаются только нужные по условию запроса данные из базовых таблиц. </span>
1. От первого лица, вертикальный, горизонтальный.
2. Вверх, вниз, влево, вправо, закрасить.
3 . Ну например ты не правильно написал(а) слово или у нц нет кц. Или у начала нет конца.