Question

Как найти в Паскале нечётные числа среди введённых?

Answer 1

Например так:

Var
A,N:integer;
Begin
WriteLn('Введите кол-во чисел');
ReadLn(N);
WriteLn('Введите сами числа');
For N:= 1 to N do
    Begin
    Read(A);
    if A mod 2 = 0 then WriteLn(A,' чётное')
    else WriteLn(A,' нечётное')
    End;
End.

Пример ввода-вывода:

Введите кол-во чисел
4
Введите сами числа
1 2 3 4
1 нечётное
2 чётное
3 нечётное
4 чётное


Вообще, чётность определяется по остатку деления на два: остаток равен нулю - значит число чётное, единице - нечётное.

Answer 2

Чтобы найти нечетные числа среди введенных в Паскале, вы можете использовать оператор деления с остатком (%). Вот пример программы на языке Паскаль, которая позволяет вводить числа с клавиатуры и выводит только нечетные числа:

pascalCopy code
program FindOddNumbers;
var
  number: integer;

begin
  writeln('Введите числа (для завершения введите 0):');
  repeat
    readln(number);
    if number <> 0 then
    begin
      if number mod 2 <> 0 then
        writeln(number, ' - нечетное число');
    end;
  until number = 0;
end.

В этой программе мы используем цикл repeat...until, чтобы позволить пользователю вводить числа до тех пор, пока не будет введен ноль (0) для завершения программы. Внутри цикла мы проверяем каждое введенное число на нечетность с помощью оператора деления с остатком (number mod 2 <> 0). Если число является нечетным, оно выводится на экран.

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