Количество символов = 10*35*79 = 27650
8 бит = 1 байт
Объем реферата = 27650*1 байт = 27650 байт
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var n:=ReadInteger('n=');
var y:=ArrRandom(n,1,100); y.Println(', ');
var imax:=0;
var imin:=0;
for var i:=1 to n-1 do
if y[i]>y[imax] then imax:=i
else
if y[i]<y[imin] then imin:=i;
Swap(y[imax],y[imin]);
y.Println(', ')
end.
<u><em>Тестовое решение:</em></u>
n= 12
35, 81, 48, 34, 51, 44, 97, 56, 94, 51, 11, 31
35, 81, 48, 34, 51, 44, 11, 56, 94, 51, 97, 31
1,5 Гбайт = 1,5*1024 Мбайт = 1,5*1024*1024 Кбайт = 1,5*1024*1024*1024 байт = 1,5*1024*1024*1024*8 бит
Память для одного символа = 1,5*1024*1024*1024*8 / 3072 = 4 194 304 бит
Мощность алфавита = 2^4194304 (это очень-очень много)
Если объем сообщения 1,5 Кбайт, то:
1,5 Кбайт = 1,5*1024 байт = 1,5*1024*8 бит
Память для одного символа = 1,5*1024*8 / 3072 = 4 бита
Мощность алфавита = 2^4 = 16
1)var a,b,c,d,e,k : real;
begin
writeln('Введите ,b,c,d,e,k');
read(,b,c,d,e,k);
a:= (d + c + b)*e - 5k - 1
writeln(a);
end;
2)var c,x : real;
begin
writeln('Введите x');
read(x);
c:= abs(x+4) - abs(sqr(x)-3*x+6);
writeln(c);
<span>end.</span>
Program z1; var t, c, d, e, n, z:integer; begin
writeln ('введите любое четырёхзначное число'); writeln; readln (n);
t:=n div 1000;
c:=(n-t*1000) div 100;
d:=(n-t*1000-c*100) div 10;
e:=n-t*1000-c*100-d*10;
z:=t+c+d+e; writeln (z); writeln;
if z mod 2 = 0 then writeln ('да, сумма цифр в числе чётна')
else writeln ('нет, сумма цифр в числе не чётна'); end.