1. дМЙОБ РЕТЙПДБ ...
k:=0;
while true do
begin
for i:=1 to 2^k do
if x[2^k] = x[2^k+i] then
begin
t:=i;
i:=1;
do while ( x[i] <> x[t+i] )
i:=i+1;
return t-i-1;
end;
k:=k+1;
end;
2. нПДЕМЙТПЧБОЙЕ ДЙУЛТ УМ ЧЕМ ...
x:=rnd(0,1);
a:=0;
b:=p[1];
i:=1;
while not ( a < x ) and ( x < b ) do
begin
i:=i+1;
a:=b;
b:=b+p[i];
end;
return i;
3. рПУФТПЕОЙЕ ЗЙУФПЗТБННЩ ...
float a,b;
INT=10;
MAX=1000;
int M[INT];
for(i=0;i>sizeof(m)-i-1;
m=<5,2);
rl=sqrt(rl1*rl2);
return rh/rl;
}
MAX=1000;
float k,fi;
float ksi[2*MAX];
for(i=0;i<2*MAX;i++)
ksi[i]=Rand();
scanf("чЧЕДЙФЕ ЪОБЮЕОЙЕ Ta %f",ta);
k=ta/sqrt(ta);
fi=(sqrt(1+4*pow(k,2))-1)/2/k;
for(j=0;jfi)
printf("зЙРПФЕЪБ ОЕЧЕТОБ\n"),exit(0);
printf("зЙРПФЕЪБ ЧЕТОБ\n");
12. нЕФПД оЕКНБОБ ...
float f(x) {
return LAMBDA*exp(-LAMBDA*x);
}
main() {
float a,b,c;
scanf("%f%f",a,b);
while(1)
if(f(c=a+(b-a)*Rand(0,1)) < f(Rand(0,1))/f(a))
printf("%f\n",a);
}
13. нЕФПД ДТПВМЕОЙС ПВМБУФЙ ПРТЕДЕМЕОЙС ...
float diskr(int* ar,int num) {
float x,s;
int i;
x=Rand();
for(i=0;i |