1). на одном из секретных заводов осуществляется обработка радиоактивных материалов, в результате которой образуются радиоактивные отходы двух типов: типа a — особо опасные и типа b — неопасные. все отходы упаковываются в специальные прямоугольные контейнеры одинаковых размеров, после чего эти контейнеры укладываются в стопку (один над другим) для захоронения. стопка является взрывоопасной, если в ней подряд идут более чем два контейнера с типа a. требуется написать программу, которая подсчитывает количество возможных вариантов формирования взрывоопасной стопки для заданного числа контейнеров n.

                для н=1000 по 9999 цикл

                                                            стр = формат(н, "чрг=; чг=");

                                                            ч1 = лев(стр,1);

                                                            ч2 = сред(стр,2,1);

                                                            ч3 = сред(стр,3,1);

                                                            ч4 = прав(стр,1);

                                                            если не (ч1 = ч2 или ч1 = ч3 или ч1 = ч4 или ч2 = ч3 или ч2 = ч4 или ч3 = ч4) тогда

                                                                                            сообщить(н);

                                                            конецесли;

                              конеццикла;