Дано натуральное число n, действительные числа a1, .вычислить: min(-a, a2, -)^a^)

Program gt; var  i, n: integer; a,min,p: real; begin read(n); read(a); p: =1; for i: =1 to n do begin p: =-a*p; if(p< min)or(i=1)then min: =p; end; writeln(min); end.

Program test; var a,b,c,d,e,f,g,h,j,k,l,s: integer; begin s: =0; writeln ('тест "приятно ли с вами общаться? "  если человек общителен, то это еще не значит, что с ним приятно разговаривать. есть люди, которые своей общительностью каждому буквально с первых минут разговора. посмотрите внимательно, разве мало вокруг таких людей? а вы приятный собеседник? '); writeln ('1) вы любите больше слушать, чем говорить? '); writeln ('1 да, 2 нет'); readln (a); if a=1 then s: =s+1 else s: =s+0; writeln ('2) вы всегда можете найти тему для разговора, даже с незнакомым человеком? '); writeln ('1 да, 2 нет'); readln (b); if b=1 then s: =s+1 else s: =s+0; writeln ('3) вы всегда внимательно слушаете собеседника?   '); writeln ('1 да, 2 нет'); readln (c); if c=1 then s: =s+1 then s: =s+0; writeln ('4) любите ли вы давать советы? '); writeln ('1 да, 2 нет'); readln (d); if d=1 then s: =s+1 else s: =s+0; writeln ('5) если тема разговора вам не интересна, станете ли показывать это собеседнику? '); writeln ('1 да, 2 нет'); readln (e); if e=1 then s: =s+1 else s: =s+0; writeln ('6) раздражаетесь, когда вас не слушают? '); writeln ('1 да, 2 нет'); readln (f); if f=1 then s: =s+1 else s: =s+0; writeln ('7) у вас есть собственное мнение по любому вопросу? '); writeln ('1 да, 2 нет'); readln (g); if g=1 then s: =s+1 else s: =s+0; writeln ('8) если тема разговора вам не знакома, станете ли вы ее развивать? '); writeln ('1 да, 2 нет'); readln (h); if g=h then s: =s+1 else s: =s+0; writeln ('9) вы любите быть центром внимания? '); writeln ('1 да, 2 нет'); readln (j); if j=1 then s: =s+1 else s: =s+0; writeln ('10) есть ли хотя бы три предмета, по которым вы обладаете достаточно прочными знаниями? '); writeln ('1 да, 2 нет'); readln (k); if k=1 then s: =s+1 else s: =s+0; writeln ('11) вы хороший оратор? '); writeln ('1 да, 2 нет'); readln (l); if l=1 then s: =s+1 else s: =s+0; writeln ('ваши - ', s); writeln ('1-3 : трудно сказать, то ли вы молчун, из которого не вытянешь ни слова, то ли настолько общительны, что вас стараются избегать, но факт остается фактом: общаться с вами далеко не всегда приятно, а порой даже тяжело. вам бы следовало над этим задуматься.  4-9 : вы, может быть, и не слишком общительный человек, но почти всегда внимательный и приятный собеседник. вы можете быть и весьма рассеянным, когда не в духе, но не требуете от окружающих в такие минуты особого внимания к вашей персоне.10-11 : вы, наверное, один из самых приятных собеседников, друзья не могут без вас обойтись'); end.

270 - это ответ, чтобы добраться до него, нужно 1. рассмотреть варианты когда в шифре две единицы, а остальные любые цифры. по условию у нас длинна шифра 5, и используем символы 1,2,3,4. теперь выделяем из длинны 5 два места под единицы, остается длинна 3, в которую нужно поместить все сообщения состоящие из 3 цифр (2,3,4 - т.к. единицу уже использовали) по формуле q   = m в степени k, где q - сколько сообщений получится, m - количество используемых символов (у нас исп. 2,3,4, т.е. 3 символа), а k - длинна сообщений (мы ищем длину сообщений 3 буквы, т.к. 2 у нас уже заняты единицами)  найдем м. м = 3 в степени 3, т.е. м = 27.получаем, что в одном таком варианте 27 разных сообщений. 2.   выше мы рассмотрели только один вариант, где 2 единицы стояли на двух первых местах, т.е , где - это цифры 2.3.4. чтобы понять сколько таких вариантов существует, используем формулу сочетаний из n по k (в нашем случае из 5 по 2) она равна 5! /2! *(5-2)! =10. получаем что есть 10 вариантов расстановки 2-х единиц в сообщении длинной 5, можно даже перебрать все 10 вариантов (1. 2.1х1хх 3. 1хх1х 4. 5. х11хх 6. хх11х 7. 8. х1х1х 9. хх1х1 10. ) подведем итог, 10 вариантов по 27 сообщений - итог 270 сообщений.