Садовник посадил n деревьев в один ряд. после посадки деревьев садовнику нужно их покрасить. в его распоряжении есть краска трех цветов: белая, синяя и оранжевая. сколько способов покраски деревьев есть у него, если никакие два соседних дерева нельзя красить в одинаковый цвет?

Унас есть 3 возможности покрасить первое дерево: белый, синий, оранжевый. далее у нас 2 возможности покрасить 2-е дерево: в не тот цвет, в который покрашено первое дерево. для третьего дерева тоже 2 варианта и так далее до n. значит   согласно правилу умножения у нас всего 3* вариантов

На visual basic с  массивом sub  program dim a(10) as integer, i as integer, s as long s  =  0 for  i  =  1  to  9  step  2 a(i)  =  i s = s + fact(a(i)) next  i text1.text  =  s end  sub function  fact(n) dim  i as  integer fact  =  1 for i  =  1  to  n fact  =  fact  *  i next  i end  function почему  во  всех  институтах  изучают pascal,  если  программы  на  basic короче  и  быстрее  работают?

Коробки (время: 1 сек. память: 16 мб сложность: 19%) на столе лежат коробка размера a1 × b1 × c1 и коробка размера a2 × b2 × c2. выясните можно ли одну из этих коробок положить в другую, если разрешены повороты коробок вокруг любого ребра на угол 90 градусов. входные данные первая строка входного файла содержит три целых числа a1, b1 и c1. вторая строка входного файла содержит три целых числа a2, b2 и c2. все числа положительны и не превосходят 1000. выходные данные если коробки одинаковы, выведите "boxes are equal". если первая коробка может быть положена во вторую, выведите "the first box is smaller than the second one". если вторая коробка может быть положена в первую, выведите "the first box is larger than the second one". иначе, выведите "boxes are incomparable" program gt; label 1; var a,b: array[1..1000]of longint; a1,b1,c1,a2,b2,c2,p,l,n,i,j: longint; begin read(a1,b1,c1,a2,b2,c2); a[1]: =a1; a[2]: =b1; a[3]: =c1; b[1]: =a2; b[2]: =b2; b[3]: =c2; for i: =1 to 2 do begin for j: =1 to 3-i do begin p: =a[j]; l: =a[j+1]; if a[j]> a[j+1] then begin a[j]: =l; a[j+1]: =p; end; end; end; for i: =1 to 2 do begin for j: =1 to 3-i do begin p: =b[j]; l: =b[j+1]; if b[j]> b[j+1] then begin b[j]: =l; b[j+1]: =p; end; end; end; if(a[1]=b[1])and(a[2]=b[2])and(a[3]=b[3])then begin writeln('boxes are equal'); goto 1; end; if((a[1]< =b[1])and(a[2]< b[2])and(a[3]< =b[3]))or ((a[1]< b[1])and(a[2]< =b[2])and(a[3]< =b[3]))or ((a[1]< =b[1])and(a[2]< =b[2])and(a[3]< b[3]))then begin writeln('the first box is smaller than the second one'); goto 1; end; if((a[1]> =b[1])and(a[2]> b[2])and(a[3]> =b[3]))or ((a[1]> =b[1])and(a[2]> =b[2])and(a[3]> b[3]))or ((a[1]> b[1])and(a[2]> =b[2])and(a[3]> =b[3]))then begin writeln('the first box is larger than the second one'); goto 1; end; writeln('boxes are incomparable'); 1: end.