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- : Трудно сказать, то ли вы молчун, из которого не вытянешь ни слова, то ли настолько общительны, что вас стараются избегать, но факт остается фактом: общаться с вами далеко не всегда приятно, а порой даже тяжело. Вам бы следовало над этим задуматься. 4- : Вы, может быть, и не слишком общительный человек, но почти всегда внимательный и приятный собеседник. Вы можете быть и весьма рассеянным, когда не в духе, но не требуете от окружающих в такие минуты особого внимания к вашей персоне.10- : Вы, наверное, один из самых приятных собеседников, друзья не могут без вас обойтись'); 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 единицы стояли на двух первых местах, т.е 11ххх, где ххх - это цифры 2.3.4. Чтобы понять сколько таких вариантов существует, используем формулу сочетаний из n по k (в нашем случае из 5 по 2) она равна 5!/2!*(5-2)!=10. Получаем что есть 10 вариантов расстановки 2-х единиц в сообщении длинной 5, можно даже перебрать все 10 вариантов (1. 11ххх 2.1х1хх 3. 1хх1х 4. 1ххх1 5. х11хх 6. хх11х 7. ххх11 8. х1х1х 9. хх1х1 10. 1ххх1)
Подведем итог, 10 вариантов по 27 сообщений - итог 270 сообщений.
Простая блок-схема)
Очень просто все делается, and это и.
Еще можно в верхнем овале написать Начало, а в нижнем Конец.