В одном каталоге не может быть двух папок или двух файлов с одинаковыми именами. В данном случае в папке USERS есть две папки PETER, чего быть не может.
Я считаю что свойства объекта является производство кислорода (чистка воздуха)
var
i, e: Integer;
s : Real;
LL : array [0..11] of Real;
LL2 : array of Real;
begin
for i:= 0 to 11 do
LL[i] := Random(101) - 100;
i := 0;
e := 0;
while i <= 11 do
begin
if LL[i] <> 0 then
begin
inc(e);
SetLength(LL2, e);
LL2[e-1] := LL[i];
s := s + LL[i];
end;
inc(i);
end;
Writeln('Кол-во ненулевых элементов = ', e);
if s < 0 then s := s * -1;
Writeln('Mодуль сумы элементов нового массива = ', s:0:3, #10#13);
for i := 0 to e - 1 do
Write(LL2[i]:0:1, ' ');
ReadLn;
end.
Ну вот тебе внутренняя часть проги:k:=0;
while k<=n do beginif x mod 2=0 then a:=a+1 else s:=s+1k:=k+1end;writeln('Кол-во четных= ', a, ' Кол-во нечетных = ',s)
Буду исходить из того что a, b и h - это double и a < b.
Сначала напишем функцию, вычисляющую значение рассматриваемой функции:
double y(double x) =>
x < 0 ? -4 :
x < 1 ? (x * x + 3 * x + 4) :
2;
Теперь одним LINQ выражением выведем на экран значения x и y для заданного диапазона x:
Enumerable
.Range(0, int.MaxValue)
.Select(i => a + h * i)
.TakeWhile(n => n <= b + 0E-10)
.ToList()
.ForEach(x => Console.WriteLine($"x = {x:0.000} y = {y(x):0.00}"));