Вводится последовательность целых чисел, оканчивающаяся нулем. Число 0 в последов
Вводится последовательность целых чисел, оканчивающаяся нулем. Число 0 в последовательность не входит.
Выведите элементы последовательности в обратном порядке. Для хранения данных используйте стек.
Входные данные
Вводится последовательность целых чисел, по модулю не превосходящих 10000. Ввод заканчивается, когда будет введено число 0. Всего чисел не более 100 (не считая нуля).
Выходные данные
Выведите элементы этой последовательности в обратном порядке, через пробел.
Гость
Ответ(ы) на вопрос:
Гость // 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
Не нашли ответ?
Похожие вопросы