НАЙДИТЕ ДЕСЯТИЧНЫЕ ПРЕДСТАВЛЕНИЯ ЧИСЕЛ ЗАПИСАННЫХ В ОБРАТНОМ КОДЕ
10011101 10110011

Условие: (x % 4 == 0 and x % 100 != 0) or x % 400 == 0

Рассмотрим скобку x % 4 == 0 and x % 100 != 0:

x % 4 == 0 — число делится на 4 без остатка, т.е. кратно 4-мx % 100 != 0 — число не делится на 100 без остатка, т.е. не кратно 100

and говорит о том, что обязательно должны выполняться оба этих условия: число должно быть кратно 4-м И не кратно 100

Вторая часть условия:

x % 400 == 0 — число делится на 400 без остатка, т.е. кратно 400

or говорит о том, что либо выполняется условие в скобке, либо то, которое идет после or:

число должно быть кратно 4-м И не кратно 100, ИЛИ число должно быть кратно 400

Пример чисел, которые удовлетворяют условию:

0

4

8

12

128

400

1600

Например, 200 не подойдет:

200 % 4 == 0 — да

200 % 100 != 0 — нет

200 % 400 == 0 — нет

(да И нет) ИЛИ нет = нет ИЛИ нет = нет

1. 10
2. 12
3. 3
4. 22
5. 15
6. 34
7. 3
Часть 2
1. 
Var
  n:integer;
Begin
  Write('Введи число ');
  Readln(n);
  if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное);
End.
2.
Var
  a,b:integer;
Begin
  Write('Введи числа ');
  Readln(a,b);
  if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b);
End.
3.
Var
  n:integer;
Begin
  write('Введи двузначное число ');
  Readln(n);
  if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе');
End.