Решение в паскале: даны 2 числа. если одно из чисел - вопрос №210425579 от malinka140117 13.04.2020 17:18

Question

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

malinka140117 · Answer

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.