Ввод x
readln(x);
Далее идет просто ифовое перечисление условий.
Промежутки:
(-oo;1]
[5;9)
Снизу левый не ясно откуда. Напишу что от 0. Вставишь своё число по заданию.
(0;3]
[7;+oo)
Всё, промежутки установили. Теперь вбиваем их в if
var
x:integer;
begin
readln(x);
if (x<=1) or ((x>=5) and(x<9)) or ((x>0) and (x<=3)) or (x>=7) then writeln('Принаждежит') else writeln('не принаждежит');
end.
Только я сделал 4 промежутка в одном задании)
Теперь ты разложи как нужно (либо на 2 задания, либо найди их общее решение.)
Вкладка Шрифт предоставляет более широкие возможности для форматирования шрифта, чем элементы управления группы Шрифт на ленте или панели форматирования.
Элементы управления вкладки Шрифт диалогового окна Формат ячеек понятны. В списке Шрифт выбирают нужный шрифт, в списке Начертание – атрибут (обычный, полужирный, курсив или полужирный курсив). Некоторые шрифты могут содержать меньше атрибутов, например только обычный и курсив. В списке Размер указывают размер шрифта, в раскрывающемся списке Цвет – цвет шрифта и т. д.
В раскрывающемся списке Подчеркивание выбирают стиль подчеркивания текста, если таковое требуется. Здесь вам предоставляется уже больше вариантов, чем в группе Шрифт ленты или на панели форматирования.
Кроме того, обратите внимание на группу флажков Видоизменение. С их вы можете сделать шрифт зачеркнутым, а также опустить или поднять символы текста относительно опорной линии, то есть присвоить шрифту атрибут надстрочный или подстрочный.
var c,b1,b2:integer;
begin
readln(c); // Считываем число
b1:=c mod 10; // Единицы
b2:= (c - b1) mod 100; // Десятки
write(c-b2); // Вычитаем из числа десятки
end.