Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.62/29: Рейтинг темы: голосов - 29, средняя оценка - 4.62
 Аватар для Anastasia96
3 / 3 / 0
Регистрация: 14.04.2014
Сообщений: 43

Определить, какая цифра находится в k-ой позиции последовательности

13.09.2014, 00:13. Показов 5400. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано целое k от 1 до 180. Определить, какая цифра находится в k-ой позиции последовательности 10111213....9899 в которой выписаны подряд все двухзначные числа.
массив использовать нельзя.
цикл for тоже нельзя только if then else
Объясните пожалуйста алгоритм, не на языке паскаль а как в ручную
Пожалуйста если можно
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
13.09.2014, 00:13
Ответы с готовыми решениями:

Построить числовую последовательность и определить, какая цифра стоит в ее k-й позиции
Нужно чтобы выводило все элементы от 1 до 10000(n) и только потом выбирало k и всё это выводилось на экран Построить числовую...

Определение цифры, которая находится в k-той позиции последовательности
Дано натуральное число k от1 до 180. Написать программу для определения цифры которая находится в k-той позиции последовательности ...

Определить символ, который находится на заданной позиции новогодней ленты
Для того чтобы дети учились запоминать квадраты натуральных чисел Дед Мороз в этом году помимо других подарков дарил каждому ребенку ленту,...

1
354 / 135 / 28
Регистрация: 16.12.2012
Сообщений: 607
Записей в блоге: 1
13.09.2014, 03:03
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Привет
Смотри, стоит разбить задачу на два варианта взависимости от четности\нечетноси K..
Если k нечетно, то всё просто..
Мы должны вывести цифру, стоящую в разряде десятков в числе k div 2..
А это будет k div 2 div 10 = k div 20

Если же k нечетно, то мы опятьже полжны взять число k div 2.. И вывести число, стоящее в позиции единиц.. это k div 2 mod 10, но мы начинаем с 0-ля.. поэтому k div 2 mod 10 - 1.. Но можем получить отрицательное число.. Поэтому (k div 2 mod 10 - 1+10) mod 10.. И результат.. (k div 2 mod 10 + 9) mod 10..

А вот и программка..
Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses SysUtils; // вроде для ABC стоит удалить эту строчку
 
var
    s : string;
    i, k : Integer;
 
begin
    ReadLn(k);
    s := '';
    for i := 10 to 99 do 
        s := s + IntToStr(i);
    WriteLn(Length(s));
 
    if k mod 2 = 0 then WriteLn( (k div 2 mod 10 + 9) mod 10)
    else WriteLn(k div 20+1);
 
    WriteLn(s[k])
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
13.09.2014, 03:03
Помогаю со студенческими работами здесь

Определить, какая из точек находится ближе к началу координат
Хакеры и программисты данного ресурса. Взываю к Вашему милосердию. Помогите с работами для института, ваще полная ж... Горю, нужно сдавать...

Определить цифру на k позиции в последовательности
Дано целое k, 1<=k<=180 Определить, какая цифра находится в k-ой позиции последовательности 101112131415..9899, в которой выписаны подряд...

Определить, какая из двух точек находится ближе к началу координат
Даны две точки с координатами x1, y1, x2, y2. Определить, какая из двух точек находится ближе к началу координат. x1, y1, x2, y2 -...

Определить, какая по счету точка находится ближе всего к началу координат
с клавиатуры вводятся координаты точек на плоскости.определить какая по счету точка(в порядке ввода координат)находится ближе всего к...

Определить, количество чисел в последовательности, первая цифра которых 2
2. Дано 30 целых чисел от 1 до 50. Определить, сколько среди них чисел, первая цифра которых 2.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Первый деплой
lagorue 16.01.2026
Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru