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

Question

Тошка

Информатика

14 февраля, 23:46

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

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Малика Кузнецова · Answer 1

var f1, f2:text;

mas: array [1 ... 100] of integer;

n, i, size:integer;

procedure push (c:integer);

begin

size:=size + 1;

mas[size]:=c;

end;

procedure pop;

begin

size:=size-1;

end;

function top : integer;

begin

top:=mas[size];

end;

begin

assign (f1,'input. txt');

reset (f1);

assign (f2,'output. txt');

rewrite (f2);

while not (eoln (f1)) do

begin

read (f1, n);

if n 0 then

begin

push (n);

inc (i);

end;

end;

for i:=1 to i do

begin

write (f2, top,' ');

pop;

end;

close (f1);

close (f2);

end.