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.

Answer 2

Для решения этой задачи в Pascal можно воспользоваться следующим алгоритмом:

1. Сгенерировать два случайных числа.
2. Проверить, является ли первое число четным и второе нечетным или наоборот.
3. Вывести на экран число, которое является нечетным.

Вот пример кода на Pascal:

pascalCopy code
program OddNumber;

var
  a, b: integer;

begin
  { Генерируем два случайных числа от 1 до 100 }
  Randomize;
  a := Random(100) + 1;
  b := Random(100) + 1;

  { Выводим сгенерированные числа на экран }
  writeln('Сгенерированные числа: ', a, ' и ', b);

  { Проверяем, является ли одно число четным, а другое нечетным }
  if (a mod 2 = 0) and (b mod 2 <> 0) then
    writeln('Нечетное число: ', b)
  else if (a mod 2 <> 0) and (b mod 2 = 0) then
    writeln('Нечетное число: ', a)
  else
    writeln('Среди сгенерированных чисел нет четного и нечетного числа.');
end.

Обратите внимание, что в коде используется функция Randomize, чтобы инициализировать генератор случайных чисел, и Random(100) + 1, чтобы получить случайное число от 1 до 100. Вы можете изменить диапазон генерации случайных чисел по своему усмотрению.