Question

Ввести 2 числа. Если оба числа >0 и чётные,выдатьTrue, иначе False

Answer 1

Pascal ABC.Net 3.3.5

var
  a, b: integer;

begin
  write('Введите числа: ');
  readln(a, b);
  if (a > 0) and (b > 0) and (a mod 2 = 0) and (b mod 2 = 0)
    then
    writeln('True')
  else writeln('False');
end.

Answer 2

Хорошо! Чтобы реализовать это условие в коде, нужно ввести два числа и затем проверить, являются ли они оба положительными и четными. Если это так, то выводим True, иначе False. Вот код на Python:

pythonCopy code
def are_both_positive_even(num1, num2):
    return num1 > 0 and num1 % 2 == 0 and num2 > 0 and num2 % 2 == 0

try:
    num1 = int(input("Введите первое число: "))
    num2 = int(input("Введите второе число: "))

    result = are_both_positive_even(num1, num2)
    print(result)

except ValueError:
    print("Ошибка: Введите целые числа.")

Выполните код, и вам будет предложено ввести два числа. После ввода программа определит, являются ли оба числа положительными и четными, и выведет True, если это так, и False в противном случае.