PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
begin var st1:=new Stack<integer>; foreach var t in Seq(2,13,20,18,1) do st1.Push(t); Write('Стек1: '); st1.Println; var st2:=new Stack<integer>; foreach var t in Seq(9,11,10,8,4) do st2.Push(t); Write('Стек2: '); st2.Println; var st3:=new Stack<integer>; while st1.Count+st2.Count>0 do begin while st1.Count>0 do begin var k:=st1.Pop; if k.IsEven then begin st3.Push(k); break end end; while st2.Count>0 do begin var k:=st2.Pop; if k.IsOdd then begin st3.Push(k); break end end end; Write('Стек3: '); st3.Println; end.
For i:=1 to n do begin a[i]:=random (20); write(a[i],' ') end; for j:=n-1 downto 1 do for i:=1 to j do if a[i]>a[i+1] then begin x:=a[i]; a[i]:=a[i+1]; a[i+1]:=x end; writeln; for i:=1 to n do write(a[i],' ')
В программе: var i,j,n,x:integer; a:array [1..100] of integer; begin readln (n); for i:=1 to n do begin a[i]:=random (20); write(a[i],' ') end; for j:=n-1 downto 1 do for i:=1 to j do if a[i]>a[i+1] then begin x:=a[i]; a[i]:=a[i+1]; a[i+1]:=x end; writeln; for i:=1 to n do write(a[i],' ') end.
Внимание! Если программа не работает, обновите версию!
begin
var st1:=new Stack<integer>;
foreach var t in Seq(2,13,20,18,1) do st1.Push(t);
Write('Стек1: '); st1.Println;
var st2:=new Stack<integer>;
foreach var t in Seq(9,11,10,8,4) do st2.Push(t);
Write('Стек2: '); st2.Println;
var st3:=new Stack<integer>;
while st1.Count+st2.Count>0 do begin
while st1.Count>0 do begin
var k:=st1.Pop;
if k.IsEven then begin
st3.Push(k);
break
end
end;
while st2.Count>0 do begin
var k:=st2.Pop;
if k.IsOdd then begin
st3.Push(k);
break
end
end
end;
Write('Стек3: '); st3.Println;
end.