12кб =12 288 байт = 98 304 бит
Такие дела
Var
x,y:real;
begin
readln(x);
if x<-3 then y:=-2*x+15;
if (x>-3) and (x<2) then y:=2*cos(x)*sin(x);
if x>2 then y:=log10(x+4);
writeln(y);
end.
Var
x,y,z,k:boolean;
begin
writeln('Введите значения x,y,z(true или false)');
readln(x,y,z);
k:=not(x or y) and z;
write('Значение выражения: ',k);
<span>end.</span>
Знания которые он получает из различных источников
Var
m: array [1..31] of integer; //заполненный массив
sr: real; //средняя сумма
sum: integer; //сумма всех элементов
i: integer;
a: integer;//значений выше
b: integer;//значений ниже
c: integer;//равных среднему
begin
for i := 1 to 31 do
sum := sum + m[i];
sr := sum / 31;
for i := 1 to 31 do
if m[i] > sr then
a := a + 1
else if m[i] < sr then
b := b + 1
else c := c + 1;
writeln(a);
writeln(b);
writeln(c);
<span>end.</span>