Написать программу, проверяющую принадлежит ли число, введенное с клавиатуры, интервалу (3; 8)

pascal

Объяснение:

var n:integer;

begin

 Write('Введите число: ');

 ReadLn(n);

 if (n>3) and (n<8) then  

   WriteLn('Принадлежит')

 else

   WriteLn('Не принадлежит');

end.

Если шестеренка с буквами двигается против часовой, а стрелка стоит на месте то буквы будут перечисляться по порядку, от А до Я.
Так как главная шестеренка вращает остальные, то вторая будет двигаться по часовой, это значит что начиная с нуля цифры на второй шестеренке будут уменьшаться, 0, 9, 8...1 и по кругу.
Далее третья шестеренка будет двигаться против часовой значит цифры будут идти по нарастающей, от 0 до 6. Составим таблицу
Таблица в картинках
О Л И М П И А Д А = 51 85 12 76 42 12 00 64 00

Условие: (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 — нет

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