Question

Напишите программу которая вычисляет нечетность числа (Pascal)

Answer 1

var

 x,y: integer;

begin

 write('Введите 2 числа через пробел: ');  

 readln(x,y);

 if (x mod 2<>0)and(y mod 2<>0)  

   then write('Да')  

     else write('Нет');

 readln;

end.

Answer 2

Конечно! Вот простая программа на языке Pascal, которая вычисляет нечетность числа:

pascalCopy code
program CheckOddness;

var
  num: integer;

begin
  // Ввод числа с клавиатуры
  writeln('Введите число: ');
  readln(num);

  // Проверка нечетности числа
  if num mod 2 = 1 then
    writeln('Число ', num, ' является нечетным.')
  else
    writeln('Число ', num, ' является четным.');

  // Ожидание ввода перед выходом
  readln;
end.

Программа сначала запрашивает ввод числа с клавиатуры. Затем она проверяет остаток от деления этого числа на 2 с помощью оператора mod. Если остаток равен 1, то число является нечетным, и программа выводит соответствующее сообщение. В противном случае, если остаток равен 0, число считается четным.