const nx = 30; Var i,c,k,j,n:integer;a:array[1..nx] of integer;beginRead(n);randomize;writeln('Получившийся массив:');for i:=1 to n do begina[i]:=random(20)-10; write(a[i],' ');end;for i:=1 to n do beginfor j:=2 to n do beginif a[j] > a[j-1] then beginc:=a[j]; a[j]:= a[j-1];a[j-1]:=c;end;end;end;writeln;for i:=1 to n do write(a[i],' ');end.
Var
start,finish, x, a, b, c,dx:real;
begin
Write('x, a,b,c =');
Readln(x, a, b, c);
Writeln('Xнач, Xконе, dX =');
Readln(start, finish, dx);
if (x<3)and(b<>0) then
begin
while (start < finish)do
begin
x:= start;
Writeln('F = ', a*x*x - b*x + c);
start:= start +dx;
end;
end
else if (x>3)and(b<>0) then
begin
while (start < finish)do
begin
x:= start;
if x-c = 0 then writeln('No solution') else
Writeln('F = ', (x-a)/(x-c));
start:= start + dx;
end;
end
else
begin
while (start < finish)do
begin
x:= start;
if c = 0 then writeln('No solution') else
Writeln('F = ', x/c);
start:= start +dx;
end;
end
end.
Begin забыли дописать, после инициализации переменных
12*1024*8=98304бит
будет вообщем 98304 бит
Либо вот так
12*1024*1024*8=100 663 296