Question

Дана ненулевая последовательность, заканчивающаяся нулем. Вывести на экран всечлены последовательности, которые меньше нуляи являются не четными . на паскале

Answer 1

Ответ:

дана Нина его после данные носят заканчивающаяся нулем вывести на экран

Answer 2

Конечно, вот пример программы на языке Pascal, которая выполняет задачу, описанную вами:

pascalCopy code
program NegativeOddMembers;

var
  num: Integer;

begin
  repeat
    Write('Введите число (для завершения введите 0): ');
    ReadLn(num);
    
    if (num < 0) and (num mod 2 <> 0) then
      WriteLn('Число: ', num);
  until num = 0;
end.

Эта программа запрашивает числа у пользователя, пока не будет введен 0. Если введенное число меньше нуля и является нечетным, программа выводит его на экран.