Var
k, n: integer;
begin
k := 0;
n := 3;
repeat
k := k + 1;
n := n + 7;
until n > 366;
writeln(k);
end.
Ответ 52
<span>примеры систем,имеющих одинаковый состав (одинаковые элементы),но разную функцию -алмаз,графит,алмаз</span>
Формула : A-->B = отрицаниеA + B ( + 'это логическое сложение ∨)
X^2≤ 121 + X> X+5 = 1 - истина
X=11 : 11≤121 + (11> 16) =1 - верно!
X=12: 12≤121 + (12> 16) = 1 - неверно!
Ответ: X=11