1)Вариант:
begin
var ar:=arrrandom(10, -5, 5);
//ar.Println;
end.
2)Вариант:
var
ar: array[1..10]of integer;
begin
for var i := 1 to 10 do ar[i] := random(-5, 5);
//for var i := 1 to 10 do write(ar[i],' ');
end.
1) Для начала подсчитаем общее кол-во символов.
350 * 60 * 18 = 378000 символов
Теперь подсчитаем информационный вес одного символа по формуле N = 2^i.
128 = 2^i
i = 7 бит
Теперь найдем информационный вес всех символов.
378000 * 7 = 2646000 бит = 323 Кбайт (приблизительно)
2) Найдем информационный вес 1 символа первого алфавита.
N = 2^i
512 = 2^i
i = 9 бит
Найдем информационный вес 1 символа второго алфавита.
N = 2^i
64 = 2^i
i = 6 бит
Найдем количество символов первого ( и 2 ) алфавита.
640Кбайт = 5242880 бит
5242880 / 9 = 58320 символов
Теперь найдем информационный объем второго алфавита.
58320 * 6 = 349920 бит = 43 Килобайт ( приблизительно)
3) 1Кбайт = 8192 бит
8192 / 1024 = 2^13 / 2^10 = 2^3 = 8 бит
program lol; var x,a,b,d,y,h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13,h14,h15,h16:real; begin writeln('Введите значения'); readl
Злой но справедливый
program lol;
var y,h1,h2,h3,h4,h5,h6:real;
x,a,b,d:integer;
function pow(x:real; n:integer):real;
var sign:integer;
begin
if (x<0) and (n mod 2 <> 0) then sign := -1 else sign := 1;
pow := sign * exp(ln(abs(x))*n);
end;
begin
writeln('Введите значения');
{readln(x,a,b,d); }
x:=2;a:=1;b:=3;d:=3;
h1:=x*x*x*a*a;
h1:=3*pow(cos(h1),x);
h2:=x-pow(b,5);
h2:=pow(sin(h2),4);
h2:=abs(5*a*h2);
h2:=pow(sin(h2),2*x);
h2:=h1+h2;
h3:=a-pow(d,4);
h4:=abs(h3);
h5:=pow(sin(x+6),3);
h5:=7*a+h5;
h5:=sqrt(h5);
h5:=h4*h5+d;
h5:=sqrt(h2/h5);
h6:=pow(sin(x),3);
writeln(h1,h2,h3,h4,h5,h6);
y:=h5*h6;
writeln('y= ',y);
end.
накрутил ты там короче
а основная ошибка была в том что нельзя брать логорифм от отрицательного числа
Begin
writeln(' * ');
writeln(' * * ');
writeln('* *');
writeln(' * * ');
writeln(' * ')
end.