Var k,n:integer;
begin
write('k = (k кратно 3) ');
readln(k);
n:=k div 3 mod 10;
writeln(k,'-я цифра последовательности 101102103…149150 = ',n);
end.
Пример:
<span>k = (k кратно 3) 27
27-я цифра последовательности 101102103…149150 = 9</span>
Ответ:
какой пробел ты не написал ни чего
Объяснение:
Я сам только в 10-ом классе, это задание вижу впервые. Тем не менее оно не очень сложное. Первым шагом выпишем первые 10 букв латинского алфавита. Я также перепишу первые 4 строки из примера.
1)A [1]
2)BAA [3]
3)CBAABAA [7]
4)DCBAABAACBAABAA [15] [2-7]
5)E [31] [18-23]
6)F [63] [19-24]
7)G [127] [83-88]
8)H [255] [84-89]
9)I [511] [340-345]
10)K [1023] [341-346]
Вторым шагом укажем длину каждой строки: [1], [3], [7], [15] и т. д.
Дальше пойдем с самого конца вверх. В десятой строчке нам нужна группа символов с 341 по 346. Занесем это в наш столбик.
При переходе на девятую строчку заметим, что наша "область определения" (далее ОО) умещается этой строке. Учтем, что в девятой строке нет символа 'K' - сдвинем границы ОО на единицу [340-345].
Не останавливаемся. ОО уже не помещается в 8-ую строчку. Сдвинем границы ОО на единицу и вычтем длину строки. Т.е. [(340 - 1 - 255) - (345 - 1 - 255)] => [84 - 89]. Отметим это в восьмой строчке.
Таким образом, мы получаем два сценария - 1) ОО умещается в длину строки, 2) ОО не умещается в строке. В первом случае при переходе на новую строку просто смещаем границу на единицу. Во втором случае смещаем ОО на длину строки и единицу.
Соблюдая правило, приближаемся к четвертой строке. Для нее получили границу [2 - 7]. Ответом на первый вопрос будет строка со второго по седьмой символ четвертой строки: CBAABA
Ответ на второй найти проще. С увеличением номера строки кол-во 'A' увеличивается в два раза. Для нахожения количества букв 'A' можно воспользоваться формулой 2^(i-1), где i - номер строки. Т.е. в 10-ой строке 512 букв 'A'. Ну а символов отличных от 'A' 1023 - 512 = 511.
Чтобы не быть голословным прикрепляю Python скрипт, в котором я проверил свое решение.
Учись думать логически, развивай пространственное мышление. Удачи на экзамене!
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ReadInteger('Введите целое число, не превышающее 9:');
if a<10 then Writeln('S2=',Range(a,10).Select(i->i*i).Sum)
else Writeln('Введенное значение больше 9')
end.
<u><em>Тестовое решение</em></u>
Введите целое число, не превышающее 9: -7
S2=525
Наверное, смородина, потому-что это скорее не растение, а еда
По поводу грибов - это не биология (грибы имеют некоторые свойства растения + они РАСТут)
