Question

Pascal.abc Пользователь вводит ЦЕЛОЕ число. Выводить ЧЕТНОЕ оно или нет. ПОЛЬЗОВАТЬСЯ TRUE,FALSE(boolean)

Answer 1

var a:integer;

begin

writeln ('Введите целое число:');

read (a);

if a mod 2 = 0 then begin

writeln ('Число четное');

end

else begin

writeln ('Число не четное');

end;

end.

Answer 2

В Pascal для определения четности числа можно использовать операцию остатка от деления на 2. Если остаток равен нулю, то число является четным, иначе - нечетным. Ниже приведен пример кода на Pascal, который позволяет пользователю ввести целое число и выводит информацию о четности этого числа используя переменные типа boolean: ``` program CheckEvenNumber; var num: integer; isEven: boolean; begin writeln('Введите целое число: '); readln(num); isEven := (num mod 2 = 0); if isEven then writeln('Число ', num, ' является четным.') else writeln('Число ', num, ' является нечетным.'); end. ``` В этом примере программа сначала запрашивает у пользователя ввод целого числа. Затем она использует операцию остатка от деления (`num mod 2`) чтобы определить, равен ли остаток нулю. Если остаток равен нулю, переменная `isEven` принимает значение `true`, в противном случае - `false`. Затем программа выводит соответствующее сообщение, в зависимости от значения переменной `isEven`. Можно использовать результат сравнения напрямую при выводе сообщения, как показано в коде выше. Например, можно заменить: ``` if isEven then writeln('Число ', num, ' является четным.') else writeln('Число ', num, ' является нечетным.'); ``` на: ``` writeln('Число ', num, ' является ', isEven); ``` В этом случае значение `isEven` будет выведено как `true` или `false`.