Function circle_func(x: real): real;
begin
circle_func := sqrt(4 - sqr(x + 8)) - 2;
end;
function line_func(x: real): real;
begin
line_func := 0.5*x + 1;
end;
function quadratic_func(x: real): real;
begin
quadratic_func := sqr(x - 6);
end;
var
x, y: real;
begin
writeln('Введите аргумент: ');
readln(x);
if ((x >= -10) and (x < -6)) then y := circle_func(x);
if ((x >= -6) and (x < 2)) then y := line_func(x);
if ((x >= 2) and (x < 6)) then y := 0;
if ((x >= 6)) then y := quadratic_func(x);
writeln(y:5:3);
end.
<span>не(А&B)|не(B&C)
Я перепишу по человечески
!(A*B) + !(B*C) = !A + !B + !B + !C = !A + !B + !C
По моему больше не упростить</span>
Const n=10;
<span>var i,s,k:integer;
a:array [1..n] of integer;
begin
for i:=1 to n do begin
// 1) //случайные числа
</span>a[i]:=random(20); //используя функцию randomize генерируем случайные числа
<span> write(a[i],' ');
//2)натур. ряд чисел
</span>a[i]:=i; //присваиваем элементу массива его номер
<span><span> write(a[i],' ');
</span> //3)заполнить с клав.
</span>write('введите ',i,' число массива ');
<span> readln(a[i]); </span><span>
//4) сред. ариф. кратн 2
</span>a[i]:=random(20); //создадим рандомный массив<span>
write(a[i],' '); // выведем на экран
if a[i] mod 2 = 0 then begin //если кратно 2, то....
</span>s:=s+a[i]; //считаем сумму всех чисел кратных 2
<span><span> k:=k+1; // считаем кол-во таких чисел
end;
</span> end;
//2 стоки ниже относятся только к 4 пункту
</span>writeln;
<span> writeln('среднее арифметическое элементов, кратных 2 = ',s/k);
//ниже относится к ручному вводу
writeln;
for i:=1 to n do write(a[i],' ');
end.
как-то так) старался некоторые моменты пояснять комментариями</span>