Дана начальная строка “abbcc”.Над ней несколько раз совершили операцию – сначала каждый символ ‘a’ заменить на строку “abcb”, а затем каждый символ ‘c’ заменить на строку “abb”В итоге длина новой строки оказалась равна 1274 символа.Сколько в новой строке букв ‘b’?
Последовательность Фибоначчи.
Следующий элемент: 34 + 55 = 89
Записываем все натуральные числа подряд и разбиваем их на цифры
о, д, т, ч, п, ш, с, в, д, д, ...
Выписываем натуральные числа в ряд. Каждому натуральному числу сопоставляем первую букву его названия.
1 -> о (один)
2 -> д (два)
...
10 -> д (десять)
11 -> о (одиннадцать)
Первый элемент 1. Каждый следующий элемент образуется так: выделяем цифру, считаем, сколько раз она встречается подряд в этом числе, начиная с текущей позиции и приписываем в конец нового числа пару (сколько раз цифра встречается подряд, сама цифра)
1) 1
2) 1 встречается 1 раз. Значит, пишем 11
3) 1 встречается 2 раза. Значит, пишем 21
3) 2 встречается 1 раз. Значит, пишем 12. 1 встречается 1 раз. Значит, пишем 11. Получилось 1211
4) 1 встречается 1 раз. Значит, пишем 11. 2 встречается 1 раз. Значит, пишем 12. 1 встречается 2 раза. Значит, пишем 21. Получилось 111221.
5) аналогично
6) 3 встречается 1 раз. Значит, пишем 13. 1 встречается 1 раз. Значит, пишем 11. 2 встречается 2 раза. Значит, пишем 22. 1 встречается 2 раза. Значит, пишем 21. Получилось 13112221
i,max,min,k:integer;
arifm:real;
begin
k:=0;
arifm:=0;
Randomize;
for i:=0 to 9 do
mas[i]:=Random(15);
for i:=0 to 9 do
write(mas[i],' ');
{poisk max}
max:=mas[0];
for i:=1 to 9 do
if max<mas[i] then
max:=mas[i];
{poisk min}
min:=mas[0];
for i:=1 to 9 do
if min>mas[i] then
min:=mas[i];
arifm:=(max+min)/2;
writeln('max: ',max);
writeln('min: ',min);
writeln('arifm: ',arifm:0:3);
for i:=0 to 9 do
if mas[i]<arifm then
inc(k);
writeln('k: ',k);
readln;
end.