Вводится последовательность целых чисел, заканчивающаяся нулем. Число 0 в последовательность не
Вводится последовательность целых чисел, оканчивающаяся нулем. Число 0 в последовательность не заходит. Выведите элементы последовательности в оборотном порядке. Для хранения данных используйте стек. Входные данные Вводится последовательность целых чисел, по модулю не превосходящих 10000. Ввод кончается, когда будет введено число 0. Всего чисел не более 100 (не считая нуля). Выходные данные Выведите элементы этой последовательности в обратном порядке, через пробел.
Задать свой вопрос
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 lt;gt; 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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.