Question

Логической переменной p присвоить значение true если введенное вами число является четным и false в противном случае. Вывести значение переменной p на экран. В Паскаль

Answer 1

Program n_1;

var x:integer; p:boolean;

begin

   readln(x);

   if x mod 2 = 0 then p:=true else p:=false;

   writeln(p);

end.

Answer 2

В Паскале это можно сделать следующим образом:

pascalCopy code
program CheckEvenNumber;

var
  num: Integer;
  p: Boolean;

begin
  Write('Введите число: ');
  Readln(num);

  { Проверяем, является ли число четным }
  p := (num mod 2) = 0;

  { Выводим значение переменной p }
  if p then
    Writeln('p = true')
  else
    Writeln('p = false');
end.

В этом примере мы используем переменную num, чтобы считать введенное число, и переменную p, чтобы хранить результат проверки на четность. Оператор mod возвращает остаток от деления числа num на 2. Если остаток равен 0, то число четное, и мы присваиваем переменной p значение true, иначе - значение false. Затем выводим значение p на экран с помощью условного оператора if-else.