Question

Вводятся 3 числа , вывести на экран нечетные числа pascal

Answer 1

var

a,b,c:integer;

begin

readln(a); readln(b); readln(c);

if a mod 2 <> 0 then

 Writeln('Первое нечетное')

else if a mod 2 = 0 then  

  Writeln('Первое четное');

   

  if b mod 2 <> 0 then

 Writeln('Второе нечетное')

else if b mod 2 = 0 then  

  Writeln('Второе четное');

   

  if c mod 2 <> 0 then

 Writeln('Третие нечетное')

else if c mod 2 = 0 then

  Writeln('Третие четное');

   

end.

Answer 2

Для вывода нечетных чисел из трех введенных чисел на экран на языке Pascal, вам потребуется проверить каждое число на нечетность и вывести его, если оно нечетное. Вот пример кода:

pascalCopy code
program PrintOddNumbers;
var
  num1, num2, num3: integer;

begin
  writeln('Введите три числа:');
  readln(num1, num2, num3);

  writeln('Нечетные числа:');
  if num1 mod 2 <> 0 then
    writeln(num1);
  if num2 mod 2 <> 0 then
    writeln(num2);
  if num3 mod 2 <> 0 then
    writeln(num3);
end.

Этот код сначала запрашивает у пользователя ввод трех чисел, а затем проверяет каждое число на нечетность с помощью оператора mod 2. Если число нечетное, оно выводится на экран с помощью writeln.