Помогите с олимпиадной задачкой! Опции

[Berta]

...недавно прошёл школьный этап олимпиады по информатике. это одна из задач, которую я не смогла решить. помогите, пожалуйста, с решением и если можно объясните как решать...

Во входном файле записана последовательность чисел в странном формате:
у каждого числа сначала записано количество цифр в этом числе, а потом через
пробел - сами цифры. Последовательность заканчивается числом 0.

В выходной файл нужно вывести сначала количество чисел в последовательности,
а потом - сами числа.

Количество чисел в последовательности не превышает 1000. В числах - не более
4-х знаков.

Примеры:
Пример 1
input.txt output.txt
2 2 7 3 3 5 1 0 2 27 351

...заранее спасибо!

[Федосеев Павел]

Sorry, если нарушил воспитательный процесс:

var
  a: array [1..1000] of Integer;
  Count,
  Number,
  Digit,
  NumLen,
  i: Integer;
begin
  Assign(input, 'input.txt');
  Reset(input);
  Count:=0;
  repeat
    Read(input, NumLen);
    if NumLen=0 then
      Break;
    Number:=0;
    for i:=1 to NumLen do
    begin
      Read(input, Digit);
      Number:=Number*10+Digit;
    end;
    Inc(Count);
    a[Count]:=Number;
  until FALSE;
  Close(input);

  Assign(output, 'output.txt');
  Rewrite(output);
  Write(output, Count);
  for i:=1 to Count do
    Write(output, ' ', a[i]);
  Close(output);
end.

Сообщение отредактировано: Федосеев Павел - 18.10.2012 21:50