ПАСКАЛЬ
Вводится последовательность целых чисел до 0. Вычислить последовательность элементов выделенной последовательности (через while или repeat)
Вводится последовательность целых чисел до 0. Вычислить последовательность элементов выделенной последовательности (через while или repeat)
Answers & Comments
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.
кажется так