Хитрая задача

[Marsik]

Здрасти!Дали задачу,которую простому смертному самостоятельно никогда не решить!Даже незнаю как обьяснить,но все же:
в 1-ый год подарили 1 подарок,во второй 221,
в третий 333221 и т.д.И надо найти найти какого типа будет подарок,например если число 5 то будет 3 типа(читать начинаем с 1 и переходим на 5 единиц).Помогите пожалуйста!

[Alex21]

Ничего хитрого:

var
  n,i,j:integer;
begin
  n:=5; {задаем номер года}
  for i :=n downto 1 do
  begin
    for j:= n downto n-i+1 do
    begin
      write(i);
    end;
  end;
  readln;
end.

Ответ для n=5: 555554444333221

[Marsik]

Ответ должен быть такого типа:
если пользователь ввел например 8 то считать надо сверху(так как в первый год был 1 подарок,во 2 год 221,уже всего 4(1221),дальше в 3 год 333221,уже всего 10 подарков(1221333221),но так как нам надо узнать какого типа 8 подарок,а не 10,то считаем также,но сосчитав 8 останавливаемся получается 2 типа(т.к. 1221333221,на 8 подарок приходится 2)

[Stilet]

в 3 год 333221,уже всего 10 подарков(1221333221)

Ну и в чем тут логика?

[puporev]

По моему, что-то связанное с системой счисления по основанию 3.

[Alex21]

всего 10 подарков(1221333221)

Допустим подарков - 10, тогда, что в скобках?

[JTG]

Я что-то не вкурил задание %)

Типа так?
1 - 1
2 - 122
3 - 122333
4 - 1223334444

1 - 1
2 - 1221
3 - 1221333221
4 - 12213332214444333221

Тока какого считаем задом-наперёд? И вообще, что подразумевается под словом "подарок" и что надо найти? Формулируй условие точнее
----
Ну капец, "...а вы говорите черепашка 3.14здит... "

[Marsik]

На рисунке посмотрите пожалуйста!Там не ахти,но более -менее понятней.Найти мне нужно к какому типу будет относиться число введенное пользователем.

[JTG]

Const TotalYears=6;

var s1,s2,result: string;
    i,j,k,user: byte;

begin
Write('Enter number > ');
Readln(user);

For k:=1 to TotalYears do
  begin
    For i:=k downto 1 do  
      For j:=i downto 1 do
      Begin
        str(i,s2);
        s1:=s1+s2;
      End;
  result:=result+s1;
  s1:='';
  s2:='';
end;

writeln('Result = ' + result + #13#10 + 'Digit = ' + result[User]);
readln;
end.

Ничего сложного кстати, задача на вложенные циклы

[Marsik]

Как я понимаю это было на Паскале.А на Дельфе также?Если да то как записать result(user),а то жалуется 'missing operator or semicolon'Почему?