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.