Question

Задача в паскалеabc.
Из 2-ух случайных чисел, одно из которых четное, а другое нечетное определить и вывести на экран нечетное число.

Answer 1

program fantscrin;

   var x_1,x_2:integer;

begin

    write('Введите 1-ое число: '); readln(x_1);

    write('Введите 2-ое число: '); readln(x_2);

     

    if (x_1 mod 2 <> 0) then writeln(x_1)

                        else writeln(x_2);

end.