Var x,f:real;
<span>begin </span>
<span>writeln('Введите значение x –'); </span>
<span>read(x); </span>
<span>if x<=0 then f:=-x else </span>
<span>if (x>0) and (x<2) then f:=sqr(x) else f:=4; </span>
<span>writeln('Значение функции f(x) = ',f); </span>
<span>end.</span>
Const n = 5;
var
a: System.Array;
begin
var b := new System.Collections.Generic.List<object>(n);
for i: integer := 1 to n do
b.Add(random(50));
a := b.ToArray();
{ Основная часть }
foreach s: integer in a do write(s:3);
writeln();
System.Array.Sort(a);
foreach s: integer in a do write(s:3);
<span>end.</span>
const a=1; d=1; n=100;
var s:real;
begin
s:=(2*a+d*(n-1))/2*n;
writeln ('Сумма числер равна ',s);
end.
(1 и 0)=0, (0 или 1)=1 -ответ
===== PascalABC.NET =====
begin
var a := ArrRandom(15, 0 , 20); // глупый диапазон c) 0 всегда
a. Println;
a.Count(p -> p.IsOdd).Println; // a)
var s := a.Where(p -> (p mod 3 =0) or (p mod 5 = 0));
Println('Сумма', s.Sum, ' Количество', s.Count); // b)
a[1::2].Where(p -> p < 0).Sum.Println // c
end.