Чебурашка составлял палиндромы из букв ч и б. получилось 35 палиндромов. сколько было букв ч, если букв б было 9? (в каждом палиндроме использовались все буквы ч и все буквы б.) в качестве ответа укажите одно натуральное число.
Вообще задачка не стоит своих , она стоит куда дороже Мы знаем что у нас нечетное число букв, причем что нечетность приходится на букву Б (9) Все палиндромы длиной во все буквы Тогда каждый палинром имеет такую схему: [некий набор альфа]Б[альфа в обратном порядке] Разных альф может быть тоже 35 и состоит из половины букв Ч и (9-1)/2 = 4 букв Б Обозначим все колво букв Ч = 2x, а половину - х Значит у нас тут Перестановки с повторениями, колво которых 35 35 = (x+4)! / (x!4!) 35 * 4! = (x+4)(x+3)(x+2)(x+1) 7 * 5 * 4 * 3 * 2 = (x+4)(x+3)(x+2)(x+1) можно представить так 7 * 6 *5 * 4 = (x+4)(x+3)(x+2)(x+1) очевидно что 7 = х+4 т.е.х=3 А букв Ч = 2х = 2*3 = 6
Var s:string; n,k,i:integer; begin for n:=1 to 2 do begin writeln('Введите строку ',n,':'); readln(s); k:=0; for i:=1 to length(s) do begin case s[i] of '[': k:=k+1; ']': k:=k-1; end; end; if k=0 then writeln('В строке ',s,' количество [ и ] одинаково') else writeln('В строке ',s,' количество [ и ] не одинаково'); end; end.
Пример: Введите строку 1: c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково Введите строку 2: Просто [ пример ]] со [[ скобками В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково
program parampampam; uses crt; var i: integer; {счетчик} s: integer; begin clrscr; {очистка экрана} writeln ('Программа выводит числа от 1 до 99, сумма цифр которых равна числу S'); writeln ('Введите число S, от 0 до 18: '); {ввод числа S с проверкой на корректность} repeat readln (s); if (s>18) or (s<0) then writeln ('Неверный ввод. Повторите') until (s<=18) and (s>=0); {вывод нужных чисел на экран (цикл с предусловием)} for i := 1 to 99 do if ((i div 10) + (i mod 10) = s) then {div дает целую часть, mod - остаток от деления} write (i, ' '); repeat until keypressed; {пустой цикл для задержки экрана до нажатия клавиши} end.
Мы знаем что у нас нечетное число букв, причем что нечетность приходится на букву Б (9)
Все палиндромы длиной во все буквы
Тогда каждый палинром имеет такую схему:
[некий набор альфа]Б[альфа в обратном порядке]
Разных альф может быть тоже 35 и состоит из половины букв Ч и (9-1)/2 = 4 букв Б
Обозначим все колво букв Ч = 2x, а половину - х
Значит у нас тут Перестановки с повторениями, колво которых 35
35 = (x+4)! / (x!4!)
35 * 4! = (x+4)(x+3)(x+2)(x+1)
7 * 5 * 4 * 3 * 2 = (x+4)(x+3)(x+2)(x+1)
можно представить так
7 * 6 *5 * 4 = (x+4)(x+3)(x+2)(x+1)
очевидно что 7 = х+4 т.е.х=3
А букв Ч = 2х = 2*3 = 6
Надеюсь понятно