680
программу я раньше уже приводила
n = 0
kolvo_trevog = 14
for bin in 1..2**30-1
    s = bin.to_s(2)
    next if s.include?("11")

    i = 0
    for j in 0..s.size
        i += 1 if s[j] == "1"
    end
    next if i != kolvo_trevog

    s = ("000000000000000000000000000000" + s)[-30..-1]
    n += 1
    p [s, i, n] if n % 100 == 0
end
p [s, i, n]

0 0

3 года назад

Придумайте ,пожалуйста , рекламу для плетённой корзинки из газеты

romanand

Если тебе надо рекламу, то вот:
''Покупайте эти прекрасные корзинки! Обратите внимание на то как оккуратно сделана работа!! Между прочим ручная!! Очень долго может продержаться у вас и не испортится!!!''
( если не надо ни чего покупать то просто убери это предложение) =)

0 0

4 года назад

Помогите пжжжжжжжжж)

ObbIBATEJIb

Ты какой класс???????????

0 0

2 года назад

как решаются факториалы в паскале 1 месяц учу этот паскаль

tagrov

Var i,m,n:longint;
begin
readln(n);
for i:=1 to n do
m:=m*i;
writeln(m);
end.

0 0

4 года назад