Написать функцию, которая удаляет из стека отрицательные элементы. остальной код: struct stack { // декларация структурного типа int info; stack * next; } *begin, *t; // декларации прототипов функций пользователя stack* instack(stack*, int); void view(stack*); void del_all(stack **); // функция добавления элемента в стек stack* instack(stack *p, int in) { stack *t = new stack; t-> info = in; t-> next = p; return t; } // функция просмотра стека void view(stack *p) { stack *t = p; while (t ! = null) { cout < < " " < < t-> info < < endl; t = t-> next; } } // функция освобождения памяти void del_all(stack **p) { while (*p ! = null) { t = *p; *p = (*p)-> next; delete t; } } void main() { int i, in, n, kod; while (true) { cout < < "\n\tcreat - 1.\n\tadd - 2.\n\tview - 3.\n\tdel - 4.\n\texit – 0. : "; 19 cin > > kod; switch (kod) { case 1: case 2: if (kod == 1 & & begin ! = null) { // если создаем новый стек, должны освободить память, занятую предыдущим cout < < "clear memory! " < < endl; break; } cout < < "input kol = "; cin > > n; for (i = 1; i < = n; i++) { in = random(20); begin = instack(begin, in); } if (kod == 1) cout < < "create " < < n < < endl; else cout < < "add " < < n < < endl; break; case 3: if (! begin) { cout < < "stack pyst! " < < endl; break; } cout < < "--- stack ---" < < endl; view(begin); break; case 4: del_all(& begin); cout < < "memory free! " < < endl; break; case 0: if (begin ! = null) del_all(& begin); return; // выход – exit } } }

OCR-версия страницы из учебника (текст страницы, которая находится выше):Отсюда получаем ас = ab и Ьс = Ьа. Из этих двух равенств следует, что ас-Ьс, или (Ь - а) с = 0. Но Ь - а - АВ, с-DC, поэтомуАВ DC = 0, и, значит, АВ J_ CD, что и требовалось доказать.464    Вычислите угол между прямыми АВ и CD, если: а) А (3; -2; 4), В (4; -1; 2), С (6; -3; 2), D (7; -3; 1); б) А (5; -8; -1), В (6; -8; -2), С (7; -5; -И), D (7; -7; -9); в) А (1; 0; 2), В (2; 1; 0), С (0; -2; -4), D (-2; -4; 0); г) А (-6; -15; 7), В (-7; -15; 8), С (14; -10; 9), D (14; -10; 7).465    Дана правильная треугольная призма АВСА1В1С1, в которой ААХ = = л/2АВ (рис. 139, а). Найдите угол между прямыми АСХ и АХВ. РешениеПусть АВ = а, тогда ААХ = v2a. Введем прямоугольную систему координат так, как показано на рисунке 139, б. Вершины А, В, А1т С!имеют следующие координаты (объясните почему): А^~—;|-;0j,В (0; а; 0), А, ; j; aV2 ), С, (0; 0; aV2).Отсюда находим координаты векторов АСХ и ВАХ:ACi{-^#rf;aV2}, ^ ji^;-|;aV2Векторы АСг и ВАг являются направляющими векторами прямых ACj и AlB. Искомый угол ф между ними можно найти по фор-муле (2V    ,i_3a2+la2 + 2(J2!14 4    ,cos Ф = -    --------— = откуда Ф = 60°.;3a2+la2 + 2a2 . ;la2+la2 + 2a2 2\' 4 4    \ 4 4466    В кубе ABCDA^Bfi^D^ точка М лежит на ребре АА,, причем AM : MAj = 3 : 1, а точка N — середина ребра ВС. Вычислите косинус угла между прямыми: а) MN и DDX\ б) MN и BD; в) MN и В,£»; г) MN и Afi.

// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
  var n:=ReadInteger('n=');
  if n<0 then Writeln(n,'! не определено: n<0')
  else
    if n=0 then Writeln('0!=1')
    else begin
      var p:BigInteger:=1;
      for var i:=2 to n do p*=i;
      Writeln(n,'!=',p)
      end
end.

Тестовое решение:
n= 138
138!=691778647261948849222819828311491035886734385827028118707676848307166514238979223884785249055995983385450621636277440066920043595627074569065446040152660143904127838730788278294186615891819670506731208704000000000000000000000000000000000