<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger('Вводите:',ReadInteger('n=')).Any(x->x<0))
end.
<u>Примеры</u>
n= 5
Вводите: 6 -4 56 34 0
True
n= 3
Вводите: 67 9453 457
False
<span>обмениваются через:магистраль.</span>
<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.
Позволяет рисовать , заливать , искожать , стирать .