Question

Решение задачи в паскале: даны 2 числа. Если одно из чисел - чётно то, на экран выводится 1, если оба чётные то выводится 2, если ни одно из них не чётное выводится 0.

Answer 1

===== PascalABC.NET =====

begin

 var (a, b) := ReadInteger2('Введите два целых числа:');

 var (p, q) := (a mod 2 = 0, b mod 2 = 0);

 if p and q then

   Print(2)

 else if not (p or q) then

   Print(0)

 else Print(1)

end.

Answer 2

Вот решение задачи на языке Pascal:

pascalCopy code
program CheckEvenNumbers;

var
  num1, num2: integer;

begin
  writeln('Введите два числа:');
  readln(num1, num2);
  
  if (num1 mod 2 = 0) and (num2 mod 2 = 0) then
    writeln('2')
  else if (num1 mod 2 = 0) or (num2 mod 2 = 0) then
    writeln('1')
  else
    writeln('0');
end.

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