Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.93/15: Рейтинг темы: голосов - 15, средняя оценка - 4.93
iAmLoser
0 / 0 / 0
Регистрация: 10.01.2012
Сообщений: 5
1

Даны целое число k (1<=k<=150) и последовательность цифр 101102103..149150, в которой выписаны подряд все трехзначные числа от 101 до 150.

10.01.2012, 08:08. Просмотров 2786. Ответов 3
Метки нет (Все метки)

Даны целое число k (1<=k<=150) и последовательность цифр 101102103..149150, в которой выписаны подряд все трехзначные числа от 101 до 150. Определить k-ю цифру, если известно, что k одно из чисел 1, 4, 7…

Не могу понять условие и как следствие не могу решить. Помоги пожалуйста или просто идею подкиньте.
 Комментарий модератора 
Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2012, 08:08
Ответы с готовыми решениями:

Даны целое число и последовательность цифр, в которой выписаны подряд все трехзначные числа
Даны целое число k (1&lt;=k&lt;=150) и последовательность цифр 101102103…149150, в...

Напечатать k-ю цифру последовательности 12345678910111213..., в которой выписаны подряд все натуральные числа
Дано натуральное k. Напечатать k-ю цифру последовательности...

Задача на case: Определить k-ую позицию цифру последовательности 10111213..99,в которой выписаны подряд все двухзначные числа
Дано натуральное k.Определить k-ую позицию цифру последовательности...

Найти все трехзначные числа, состоящие из тех же цифр, что и исходное число
Дано трехзначное число. Найти все трехзначные числа, состоящие из тех же цифр,...

Вывести на экран все положительные трехзначные числа, для которых число, состоящее из первых двух цифр данного числа, равно последней цифре
Вывести на экран все положительные трехзначные числа, для которых число,...

3
chealbert
237 / 127 / 80
Регистрация: 13.10.2011
Сообщений: 421
10.01.2012, 12:49 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Program n1;
Var a:array[1..150] of byte;
    k,i,j:integer;
Begin
 {zapolnenie posledovatelnosti}
 i:=1;j:=101;
 while i<=150 do
  begin
   a[i]:=1;
   a[i+1]:=(j div 10) mod 10;
   a[i+2]:=j mod 10;
   j:=j+1;
   i:=i+3;
  end;
 writeln('Posledovatelnost: ');
 for i:=1 to 150 do write(a[i]);
 {k-ya cifra}
 k:=1;
 writeln;
 writeln('K-ya cifra:');
 while k<=150 do
  begin
   write(k,' - ',a[k],' | ');
   k:=k+3;
  end;
End.
В общем, получается к-я цифра - 1.
0
iAmLoser
0 / 0 / 0
Регистрация: 10.01.2012
Сообщений: 5
10.01.2012, 16:47  [ТС] 3
можно спросить, что делается на этом этапе? почему именно от 1 до 101

Цитата Сообщение от chealbert Посмотреть сообщение
i:=1;j:=101;
*while i<=150 do
* begin
* *a[i]:=1;
* *a[i+1]:=(j div 10) mod 10;
* *a[i+2]:=j mod 10;
* *j:=j+1;
* *i:=i+3;
* end;
или вот здесь например
Цитата Сообщение от chealbert Посмотреть сообщение
while k<=150 do
* begin
* *write(k,' - ',a[k],' | ');
* *k:=k+3;
* end;
простите, что надоедаю и огромное спасибо за решение, но просто хочется понять.
0
chealbert
237 / 127 / 80
Регистрация: 13.10.2011
Сообщений: 421
10.01.2012, 17:40 4
Последовательность цифр: 101102103104...149150 - это числа 101, 102, ..., 105 склееные в кучку цифр (1 цифра - 0 .. 9).
В цыкле разрывается каждое число на 3 циферки:
a[i]:=1; - первая циферка (для всех чисел 1 и я не использовал хитрое деление)
a[i+1]:=(j div 10) mod 10; - вторая циферка
a[i+2]:=j mod 10; - третья циферка. (div i mod я надеюсь не нужно объяснять?)
и цыферки раскладываются в три последовательные ячейки масива: a[i], a[i+1], a[i+2]
j:=j+1 - переход к следующему числу: 101, 102 и т.д.
i:=i+3 - переход к следующей тройке ячеек для цифр
После выполнения имеем масив в 150 ячееек ((150-100)*3) заполненых цыферками по условию. У каждой цыферки теперь свой порядковый номер - номер ячейки масива.
И следующий цикл выводит каждую к-ю цифру из к-й ячейки (k (1<=k<=150) и k=1, 4, 7,...) т.е первое значение k:=1 и в цикле k:=k+3 до 150.
Ну вот так как-то...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.01.2012, 17:40

Найти все трехзначные числа, такие, что сумма цифр равна А, а само число делится на В
А и В вводятся с клавиатуры.

Найти все трехзначные числа, такие, что произведение цифр равна А, а само число делится на В (А и В вводятся с клавиатуры
Найти все трехзначные числа, такие, что произведение цифр равна А, а само число...

Найти все целые числа из промежутка от 50 до 150 в десятичной записи, которых есть цифра 9
Найти все целые числа из промежутка от 50 до 150 в десятичной записи которых...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru