// PascalABC.NET 3.1, сборка 1204 от 24.03.2016 begin var k:=0; for var n:=184 to 254 do begin var m:=n; while m mod 2=0 do m:=m div 2; while m mod 3=0 do m:=m div 3; if m=1 then Inc(k) end; Writeln('Количество чисел равно ',k) end.
Результат выполнения программы Количество чисел равно 3
Ms dos qbasic 1.0: cls randomize timer input "k = ", k input "l = ", l dim x! (k, l) for i = 1 to k for j = 1 to l x(i, j) = rnd * 21 - 10 print using "###"; x(i, j); print ; " "; next j print next i for i = 1 to l * 4 - 1 print ; "_"; next i print for n = 1 to l for i = 1 to l - n - 1 if x(i, 2) < x(i + 1, 2) then b = x(i, 2) x(i, 2) = x(i + 1, 2) x(i + 1, 2) = b end if next i next n for i = 1 to k for j = 1 to l print using "###"; x(i, j); print " "; next j print next i end
Последовательности длиной 7, содержащей 5 букв А могут быть следующими: ** (* - любой из символов В или С) *А* ААА*АА* АА*ААА* А** ** (пока 6 вариантов) Далее - аналогично: **А ААА*А*А АА*АА*А А*ААА*А **А (ещё 5 вариантов) ААА**АА АА*А*АА А*АА*АА *ААА*АА (ещё 4 варианта) АА**ААА А*А*ААА *АА*ААА (ещё 3 варианта) А** *А* (ещё 2) ** (ещё 1) Итого: 6+5+4+3+2+1=21 Так как на месте * могут быть любые из 2 символов В или С, то это даст ещё по 4 варианта для каждого случая. Можно здесь, конечно, комбинаторику вспомнить. Итого: 21*4 = 84
begin
var k:=0;
for var n:=184 to 254 do begin
var m:=n;
while m mod 2=0 do m:=m div 2;
while m mod 3=0 do m:=m div 3;
if m=1 then Inc(k)
end;
Writeln('Количество чисел равно ',k)
end.
Результат выполнения программы
Количество чисел равно 3