Повторить каждую цифру равное ей количество раз

@MrXayc · Регистрация: 05.04.2015

Студворк — интернет-сервис помощи студентам

«ГНЧЭ-1» — сложное электронное устройство, выдающее каждую секунду очередное число последовательности 1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5...
Ввиду дороговизны электронных комплектующих вам поручено разработать эмулятор для этого устройства.

@Ваю · 27.04.2015, 19:17

Понятия не имею что значит "число последовательности", числом той последовательности является x := Random(65535); , а последовательность вот:

Pascal
1
2
3
4
5
6
7
8
9
var
a, i, j : Word;
 
Begin
Write('До куда выводить ряд? [1..65535]: '); ReadLn(a);
If a <> 0 then begin i := 0; Repeat Inc(i); j := 0; 
Repeat Write(i, ' '); Inc(j); Until j >= i;
Until i >= a; End; WriteLn('Программа завершена.');
End.

@JuriiMW · 28.04.2015, 05:37

Ваю, это раздел РАВС.NET.
В нём Integer гораздо больше Word…

Pascal
1
2
3
4
5
6
7
8
9
begin
  var A := ReadInteger('Последовательность до значения = ');
  var i := 0;
  while i < A do
    begin
      i += 1;
      for var j := 1 to i do Print(i);
    end;
end.

@Joy · 28.04.2015, 06:42

Pascal
1
2
3
4
uses system.linq;
begin
  writeln('последовательность:',Range(1,ReadInteger('Введите число секунд:')).Select((i:integer)->Enumerable.repeat(i,i)));
end.

@Ваю · 28.04.2015, 17:13

Сообщение от JuriiMW

В нём Integer гораздо больше Word

очень сомневаюсь, что будут вводиться значения даже близко подходящие к границам байта и какой смысл использовать интежер, почему сразу не уинт64 тогда?

@volvo · 28.04.2015, 19:12

Joy, чего-то оно мне не показывает результирующую последовательность, ни в онлайн-компиляторе, ни в обычном...

Вот так - показывает:

Pascal
1
2
3
4
5
6
{$reference System.Core.dll}
uses System.Collections.Generic, System.Linq, Arrays;
begin
  writeln('Введите число секунд:');
  Enumerable.Range(1,ReadInteger()).Select((i : integer)->Enumerable.repeat(i, i)).SelectMany((e : ienumerable<integer>) -> e).ToArray().Writeln();
end.

@Ваю · 29.04.2015, 01:05

У меня код Джоя работает...

Кликните здесь для просмотра всего текста

Введите число секунд: 70
последовательность:[[1],[2,2],[3,3,3],[4,4,4,4],[5,5,5,5,5],[6,6,6,6,6,6],[7,7,7,7,7,7,7],[8,8,8,8,8,8,8,8],[9,9,9,9,9,9,9,9,9],[10,10,10,10,10,10,10,10,10,10],[11,11,11,11,11,11,11,11,11,11,11],[12,12,12,12,12,12,12,12,12,12,12,12]...

@Joy · 29.04.2015, 03:10

У меня не последовательность, а многомерный массив печатается. У Volvo код правильный.

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@MrXayc 1 / 1 / 0 Регистрация: 05.04.2015 Сообщений: 32

	Повторить каждую цифру равное ей количество раз 27.04.2015, 18:28. Показов 4690. Ответов 7 Метки нет (Все метки) «ГНЧЭ-1» — сложное электронное устройство, выдающее каждую секунду очередное число последовательности 1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5... Ввиду дороговизны электронных комплектующих вам поручено разработать эмулятор для этого устройства. 1

@Ваю 27 / 27 / 9 Регистрация: 21.04.2015 Сообщений: 704
	29.04.2015, 01:05
	У меня код Джоя работает... Кликните здесь для просмотра всего текста Введите число секунд: 70 последовательность:[[1],[2,2],[3,3,3],[4,4,4,4],[5,5,5,5,5],[6,6,6,6,6,6],[7,7,7,7,7,7,7],[8,8,8,8,8,8,8,8],[9,9,9,9,9,9,9,9,9],[10,10,10,10,10,10,10,10,10,10],[11,11,11,11,11,11,11,11,11,11,11],[12,12,12,12,12,12,12,12,12,12,12,12]... 0

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	29.04.2015, 03:10
	У меня не последовательность, а многомерный массив печатается. У Volvo код правильный. 0

Повторить каждую цифру равное ей количество раз

Решение