|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.11.2008, 17:53 | #1 |
Пользователь
Регистрация: 08.11.2008
Сообщений: 19
|
цифра, которая находится в k-той позиции последовательности
Дано натуральное k от 1 до180. Написать программу для определения цифры, которая находится в k-той позиции последовательности
10111213.......9899
C-Jay
Последний раз редактировалось C-Jay; 08.11.2008 в 18:04. Причина: нет |
08.11.2008, 19:04 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
вариант 1
основан на том, что все числа в последовательности двухзначные. Код:
Код:
|
08.11.2008, 20:42 | #3 |
Регистрация: 08.11.2008
Сообщений: 4
|
вариант 3.
Решение в одну формулу. Не самое наглядное, но экономичное. На входе k:integer - позиция, на выходе z:integer - цифра. Код:
|
08.11.2008, 23:35 | #4 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Ну и я свою лепту внесу. Решение по сути дудлирует вариант 3, но в более понятном виде, кроме того писал кому-то с пояснениями, чего добру пропадать.
Обратите внимание, что на нечетных позициях стоят десятки, цифра которых меняется через 20 позиций. Поэтому если мы возьмем целую часть от деления номера позиции на 20 и прибавим 1, получим нужную цифру. От (10 до 19) div 20=0 +1=1, от 20 до 29 div 20=1 +1=2, от 160 до 179 div 20=8 +1=9. На четных позициях стоят единицы. На местах, кратных 20 находятся цифры 9, иначе цифра определяется как остаток от деления на 20, деленный на 2 -1, например при к=6 цифра= 6 mod 20=6 div 2 =3-1=2 (это единицы от числа 12). Код:
|
09.11.2008, 10:48 | #5 |
Пользователь
Регистрация: 08.11.2008
Сообщений: 19
|
Спасибо!!!!!
А Кто нить может на QBasic решение показать
C-Jay
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как в TWebBrowser узнать адрес ссылки которая находится под курсором мышки | SeRhy | Общие вопросы Delphi | 0 | 10.08.2008 10:11 |
по нажатию на кнопку вызвать другой фаил с расширением exe который находится в той же папке | 1234 | Общие вопросы Delphi | 3 | 05.08.2008 12:32 |
наименьшая цифра числа в delphi | SALOmandra | Помощь студентам | 2 | 22.04.2008 15:57 |
последняя ненулевая цифра факториала | Пашка | Помощь студентам | 6 | 04.04.2008 23:39 |