var
Res, Y, X:
Array
[
0..29
]
of
Real
;
i:
Integer
....
begin
X[
0
]:=
for
i:=
1
to
29
do
X[i]:=X[i-
] +
0.25
Res[i]:=Sin(X[i]*Y[i])/(X[i]-Y[i]);
end
Сайт
Форум
FAQ
Соглашения
Прочее