PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
procedure FillStack(st:Stack<integer>; sq:sequence of integer); begin foreach var t in sq do st.Push(t); end;
procedure PrintStack(st:Stack<integer>; s:string); begin Write(s); st.Println end;
procedure ToStack(sta,stb:Stack<integer>; Even:boolean); begin if Even then while sta.Count>0 do begin var v:=sta.Pop; if v.IsEven then begin stb.Push(v); exit end end else while sta.Count>0 do begin var v:=sta.Pop; if v.IsOdd then begin stb.Push(v); exit end end end;
begin var st1:=new Stack<integer>; FillStack(st1,Seq(2,13,20,18,1)); PrintStack(st1,'Стек1: '); var st2:=new Stack<integer>; FillStack(st2,Seq(9,11,10,8,4)); PrintStack(st2,'Стек2: '); var st3:=new Stack<integer>; while st1.Count+st2.Count>0 do begin ToStack(st1,st3,True); ToStack(st2,st3,False); end; PrintStack(st3,'Стек3: ') end.
1)const n=5; var a:array[1..n] of byte;k,i:integer;beginwriteln('введите числа , для изменения кол-ва вводимых чисел изменить в 1-ой строчке с 5на любое значение >2 ');for i:=1 to n do readln(a[i]);for i:=1 to n doif a[i] div 10 > a[i] mod 10 then inc(k); write(k);end. 2)const n=5; var a,b:array[1..n] of byte;sr,max,k,i:integer;beginwriteln('для изменения кол-ва чисел изменить в 1-ой строчке с 5на любое значение >2 ');for i:=1 to n do a[i]:=random(100);for i:=1 to n do b[i]:=a[i];for i:=1 to n do max:=max+a[i];sr:=max div n;writeln('начальный массив');for i:=1 to n do writeln(a[i]);write('сред арифм= ',sr);writeln;for i:=1 to n do if sr> b[i] then b[i]:=0;for i:=1 to n do writeln(b[i]);end.
Неверно то, что Прага — столица Венеции.
Лингвистика — раздел языкознания.
''Корова'' пишется через ''О''.
Земля плоская.
Егор — известное русское имя.