Решение задачи в паскале: даны 2 числа. Если одно из чисел - чётно то, на экран выводится 1, если оба чётные то выводится 2, если ни одно из них не чётное выводится 0.
Ответы
Ответ дал:
0
===== 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.
BobbyFresnel:
Типа "мая такой не панимай?" Но это товои проблемы, программа работающая и написана на Паскале, как сказано в условии)).
Вас заинтересует
6 месяцев назад
6 месяцев назад
2 года назад
2 года назад
7 лет назад