Question

Напишите программу на Pascal(с использованием цикла while) Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.

Answer 1

Ответ:

program proga;  

var str: array of string;

readstr: string; i, x, err, count: integer;  

necheti: array [1..3] of integer; y: boolean;  

begin

 y := false;

 while y = false do begin;

 Readln(readstr);  

 str := readstr.Split(' ');  

 for i := 1 to Length(str) do begin

   Val(str[i - 1], x, err); if (x mod 2  <> 0) and (x < 0) then begin count += 1; if count = 1 then necheti[1] := x; if count = 2 then necheti[2] := x; if count = 3 then necheti[3] := x;  

   if count = 3 then begin Writeln('1: ', necheti[1]);

 Writeln('2: ', necheti[2]);  

 Writeln('3: ', necheti[3]); y := true; end;

 end;

 end;

 end;

end.

Объяснение:

Вводить значения строго через пробел и без запятых

Answer 2

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

pascalCopy code
program FindNegativeOddNumbers;

var
  inputNumber, negativeOddCount, i: integer;

begin
  negativeOddCount := 0; // Инициализируем счетчик отрицательных нечетных чисел
  i := 1; // Инициализируем счетчик цикла

  while (negativeOddCount < 3) do
  begin
    write('Введите целое число: ');
    readln(inputNumber);

    if (inputNumber < 0) and (inputNumber mod 2 <> 0) then
    begin
      writeln('Отрицательное нечетное число: ', inputNumber);
      negativeOddCount := negativeOddCount + 1; // Увеличиваем счетчик отрицательных нечетных чисел
    end;

    i := i + 1; // Увеличиваем счетчик цикла

    if (i > 10) then // Для предотвращения бесконечного цикла, выход после 10 попыток
    begin
      writeln('Достигнуто максимальное количество попыток.');
      break;
    end;
  end;

  writeln('Программа завершена.');
end.

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