1) пусть первое утверждение истинно.
НЕ походит, так как в этом случае:
второе ложно
третье - истинно.
2) пусть второе истинно и пальм <2017.
первое ложно
третье ложно ( если пальм нет =0<2017)
3) пусть третье истинно, но тогда истинно и первое утверждение.
---------------------------------------------------------
Вывод: количество пальм = 0.
1) const n=8 - константа, n нельзя будет присвоить другие значения
2) <span>Type is = array [1..n] of integer; это тип с названием "is" он равен массиву</span>
<span>3) var a:is; a-имеет тип is => это массив</span>
<span>4) begin - начало программы</span>
<span>5)end. - конец программы</span>
Письменность - это важная часть всей нашей жизни. Мы пользуемся таким методом, чтобы записать некую информацию. Это дает огромный толчок науке прежде всего потому, что без письменности большая часть знаний не сохранилась бы. Разные формулы, исторические записи - за все это мы должны благодарить письменность. Если рассуждать надобность письменности с точки культуры, то следует отметить, что тут письменность оставила огромную отметку. Литературные шедевры, которые стали знаменитыми во всем мире, песни, стихи - все сохранилось благодаря письменности. Задумайтесь, что бы было, если бы письменности не существовало?
P.S. Это набросок на сочинение или доклад, его можно обогатить разными выражениями и цитатами, поискать еще некоторые факты об возникновении и истории письменности
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3><h2>№52</h2>
begin
var x := ReadReal('x =');
var F: real;
if x <= 3 then F := x * x - 3 * x + 9
else F := 1 / (x * x * x + 6);
Print(F)
end.
<h2>№54</h2>
begin
var x := ReadReal('x =');
var F: real;
if x <= -3 then F := 9
else F := 1 / (x * x + 1);
Print(F)
end.