Question

Вводится последовательность целых чисел, оканчивающаяся нулем. число 0 в последовательность не входит. выведите элементы последовательности в обратном порядке. для хранения данных используйте стек. входные данные вводится последовательность целых чисел, по модулю не превосходящих 10000. ввод заканчивается, когда будет введено число 0. всего чисел не более 100 (не считая нуля). выходные данные выведите элементы этой последовательности в обратном порядке, через пробел.

Answer 1

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var s:= new stack<integer>;
  var n:integer;
  Writeln('Вводите числа, ноль завершает ввод');
  repeat
    Read(n);
    if n<>0 then s.Push(n);
  until n=0;
  for var i:=1 to s.Count do begin
    Write(s.Peek,' ');
    s.Pop
    end;
  Writeln
end.

Пример
Вводите числа, ноль завершает ввод
3 6 9 12 5 11 -4 8 0 2 9
8 -4 11 5 12 9 6 3