Question

Рассмотрим последовательность натуральных чисел 1, 1, 2, 1, 1, 2, 3, 2, 1, 1, 2, 3, 4, 3, 2, 1, 1, 2, 3, 4, 5, 4, 3, 2, 1, …. Члены последовательности нумеруются, начиная с единицы. На каком месте впервые встретится заданное натуральное число n? программа на Pascal

Answer 1

//PascalABC.NET 3.4.2

var

 N: biginteger;

 s: string;

begin

 read(S);

 N := S.tobiginteger;

 write(sqr(N) - N + 1);

end.

//Пример ввода

//4

//Пример вывода

//13

//Пример ввода

//462759159785241952916752967892695713792395

//Пример вывода

//21414603996514309310315332548607182637508978065326333815975//4597242275715937446043631

Answer 2

Вот пример программы на Pascal, которая находит позицию первого вхождения заданного натурального числа n в последовательность:

pascalCopy code
program FindPosition;

var
  n, num, pos: integer;

begin
  writeln('Введите натуральное число n:');
  readln(n);
  
  num := 1;
  pos := 1;
  
  while num <> n do
  begin
    if pos mod num = 0 then
      num := num + 1;
    pos := pos + 1;
  end;
  
  writeln('Первое вхождение числа ', n, ' находится на позиции ', pos);
  
  readln;
end.

Программа запрашивает у пользователя натуральное число n и затем использует цикл while, чтобы проверять каждое число в последовательности, пока не будет найдено первое вхождение числа n. Переменная num хранит текущее число, а переменная pos хранит позицию этого числа в последовательности. Если позиция pos делится на num, то num увеличивается на 1. После нахождения первого вхождения числа n программа выводит результат на экран.

Обратите внимание, что в Pascal индексация элементов массивов и позиций начинается с 1, поэтому в программе позиции и номера элементов согласованы с этим соглашением.