Вводятся целые числа, окончание ввода цифра 0. найти сумму отрицательных нечетных чисел. найти произведения положительных чисел кратных 3. предусмотреть, если таких чисел не было- вывести информационное сообщение. паскаль

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (sn,pp,kp):=(0,1,0);
  var n:integer;
  repeat
    Read(n);
    if (n<0) and n.IsOdd then sn+=n
    else
      if (n>0) and (n mod 3=0) then begin pp*=n; kp+=1 end
  until n=0;
  if sn=0 then begin
    Writeln('Нет отрицательных нечетных чисел');
    if kp=0 then Writeln('Нет положительных чисел, кратных 3')
    else Writeln('Произведение положительных чисел, кратных 3: ',pp)
    end
  else begin
    Writeln('Сумма отрицательных нечетных чисел: ',sn);
    if kp=0 then Writeln('Нет положительных чисел, кратных 3')
    else Writeln('Произведение положительных чисел, кратных 3: ',pp)
    end
end.

Пример
-367 23 62 7 12 -24 90 152 -63 0
Сумма отрицательных нечетных чисел: -430
Произведение положительных чисел, кратных 3: 1080

купить есть выигрышная стратегия своим первым входом 5/5 камней и второй куртке после чего в каждой кучке становится поровну камней после этого возьмет несколько камней из какой-то кучки и петь сможешь взять столько же камней из другой кучки чтобы в кочках опять стало поровну камней рано или поздно Вася возьмет все камни с какой-то кучки тогда пейте возьмет все камни из оставшихся кочки и победит если есть три кучки в Одессе камней то первым входом Петя берёт все камни из какой-то корочки после чего действует Аналогично предыдущему случаю в этом случае у Васи есть выигрышная стратегия Будем считать что кошки пронумерованы если Петя взял несколько камней из кучки один-то Вася своим ходом берёт столько же камней и 2 кошечки Аналогично если Петя берёт несколько камней из из 2 kutikita Вася своим ходом берёт столько же камни из первой кучке тоже самое средней четвертыми кучками если своим ходом дети берут камни из одной них-то Вася после этого берёт столько же камней из другой нетрудно видеть что после каждого хода Васи в 1,2 пучках будет поровну камней и в-третьих в-четвёртых будет поровну камней А значит рано или поздно победит вася

1. Запрос – это обращение к базе данных для получения требуемых данных и выполнения действий с ними. 2. Конструктор запросов состоит из трех областей: область схемы, область сетки и область SQL. 3. Поле для выполнения вычислений 4. Критерии отбора записей записываются в виде условий отбора в строке Условие отбора бланка запроса по образцу и расположенных под ней строках. 5. Удаление поля из запроса
1. В области навигации щелкните запрос правой кнопкой мыши и выберите "Конструктор".
2. В сетке конструктора запросов выберите поле, которое вы хотите удалить, и нажмите del.
3. Закройте и сохраните запрос.
6. арифметические операторы, такие как +, -, умножение (*) и деление (/), а также операторы для сравнения значений, текстовые операторы для сцепления текста и логические операторы для определения значений "Истина" и "Ложь".