В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
skyline12345
skyline12345
14.05.2022 18:31 •  Информатика

Требуется найти n-ый член последовательности типа 1121123211234321 ограничение по времени: 5 сек ограничение n< 10^500 000

Показать ответ
Ответ:
maks722
maks722
07.10.2020 16:14
Uses crt, math;

var n: extended;
var x: extended;
var s: extended;
var f: extended;
var t: extended;

begin
        { вводим значения }
        writeln('Enter n:'); readln(n);

        if n > 0 then begin

                { номер последовательности }
                x := ceil((sqrt(1.0 + 4.0 { 8.0 } * n) - 1.0) / 2.0);

                { количество элементов всех последовательностей }
                s := x + x*x;
                { s := s / 2; }

                { относительный номер элемента в последовательности }
                f := x * 2 - (s - n);

                if f <= x then begin
                        t := 1 + x - f;
                end;

                if f > x then begin
                        t := f - x;
                end;

                { выводим результат }
                writeln('t = ', t);

                { задержка }
                readln(n);
        end;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота