Решение в паскале: даны 2 числа. если одно из - вопрос №210425747 от dhdhdh1 11.04.2021 19:43

Question

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

dhdhdh1 · 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.