Var
i,n:integer;
s1,s2:string;
f:boolean;
begin
f:=true;
writeln('Введите первую строку');
readln(s1);
writeln('Введите вторую строку');
readln(s2);
s1:=LowerCase(s1);
s2:=LowerCase(s2);
i:=1;
repeat
n:=pos(s2[i],s1);
if n>0 then delete(s1,n,1) else f:=false;
i:=i+1;
until i=length(s2);
writeln(f)
<span>end.</span>
Пусть x - количество белых шаров.
p(бел) = x / (x+30)
I(бел) = log(2)((x+30)/x) = 2 ⇒ (x+30)/x = 2^2 ⇒ x = 10
Вероятность выпадения черного шара = 30 / (30+10) = 3/4 = 0,75
В корзине 10+30 = 40 шаров
Program n1;
var a,b,c,s,k,y: real;
begin
readln(a,b,c);
s:=sqrt(a+sqr(b)*b)/sqrt(c);
k:=sqrt(abs(a*b-sqr(c)*c))+s/(2*a);
y:=3*s*k-s/(b+a);
write(y);
end.
Внешняя память. Ну мне так кажется;)
На паскале:
Var x,k:integer;
Begin
k:=0;
Repeat
Readln(x);
If (x mod 5 = 0) and (x<>0) then inc(k);
Until x=0;
Writeln(k);
End.