Объединение последовательностей
Даны две бесконечных возрастающих последовательности чисел
A
A
и
B
B
.
i
i
-ый член последовательности
A
A
равен
i
2
i2
.
i
i
-ый член последовательности
B
B
равен
i
3
i3
.
Требуется найти
C
x
Cx
, где
C
C
— возрастающая последовательность, полученная при объединении последовательностей
A
A
и
B
B
. Если существует некоторое число, которое встречается и в последовательности
A,
A,
и в последовательности
B
B
, то в последовательность
C
C
это число попадает в единственном экземпляре.
Входные данные
В единственной строке входных данных дано натуральное число
x(1≤x≤
10
6
)
x(1≤x≤106)
.
Выходные данные
Выведите дам максимум

1) д , 2) в . Наверно , мое личное мнение.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 

Const
  s0=100000; { первоначальная сумма в копейках }
  p=0.02; { величина, равная 1/100 от ежемесячного процента }
var
  s,sp:longint;
  mes:integer;
begin
  { все расчеты ведем в копейках }
  mes:=0; s:=s0;
  while sp<=30*100 do
    begin mes:=mes+1; sp:=Round(s*p); s:=s+sp end;
  Writeln('Месяц ',mes,', сумма процента ',sp/100:0:2,' > 30');
  mes:=0; s:=s0;
  while s<=1200*100 do begin mes:=mes+1; s:=s+Round(s*p) end;
  Writeln('Месяц ',mes,', сумма вклада ',s/100:0:2,
      ' > 1200');
end.

Результат выполнения программы:
Месяц 22, сумма процента 30.31 > 30
Месяц 10, сумма вклада 1218.98 > 1200