Ввод 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 задания, либо найди их общее решение.)
A1)
K=2*I (формула)
I - это степень двойки.
К - количество цветов.
128 = 2*I
(2^7 = 128)
ответ: 3
A2) Лучше векторное, оно не портится при растяжении.
ответ: 2