Program mass;
Uses Crt;
Var
x,y,z,a: array [1..5] of real;
i:byte;b,bi:real;
Begin
ClrScr;
b:=0;
For i :=1 to 5 do
begin
write ('x',i,'=');
readln(x[i]);
end;
writeln;
For i :=1 to 5 do
begin
write ('y',i,'=');
readln(y[i]);
end;
writeln;
For i :=1 to 5 do
begin
write ('z',i,'=');
readln(z[i]);
end;
writeln;
For i :=1 to 5 do
begin
a[i]:=sqrt(abs(x[i]*y[i]*z[i]));
writeln('a' , i ,'=',a[i]:5:2);
end;
writeln;
For i :=1 to 5 do begin
bi:=sqr(x[i]-y[i]);
b:=b+bi;
end;
writeln('b=',b:5:2);
end.
Для хранения информации наверное
1. Переведите в байты:560 бит = 560:8 = 70 байтов
<span>3024 бита = 3024:8 =378 байтов
</span>
2. Переведите в биты:540 байтов = 540*8 = 4320 бит
2,5 Кб = 2,5*1024*8= 2560*8 = 20480 бит
2 Гб = 2*1024*1024*1024*8 = 171798184 бита
3. Переведите в килобайты:1024000 бит = (1024000:8):1024 = 125 Кб
9240 байтов = 9240:1024 ≈ 9,02 Кб
4. Заполните пропуски числами:а) 3, 5 Кбайт = 3584 байт = 28672 бит
б) 3, 5 Гбайт = 3584 Мбайт = 3670016 Кбайт
Задача 1 ![N=256 \\ N=2^i \\ i=8 \\ K=39 \\ I=K*i=312](https://tex.z-dn.net/?f=N%3D256%20%5C%5C%20N%3D2%5Ei%20%5C%5C%20i%3D8%20%5C%5C%20K%3D39%20%5C%5C%20I%3DK%2Ai%3D312)
Ответ: 312 бит
Задача 2![K=v*t=250*40=10000 \\ N=64 \\ N=2^i \\ i=6 \\ I=K*i=10000*6=60000(bit)=7500(bait)=7,3 (Kbait)](https://tex.z-dn.net/?f=K%3Dv%2At%3D250%2A40%3D10000%20%5C%5C%20N%3D64%20%5C%5C%20N%3D2%5Ei%20%5C%5C%20i%3D6%20%5C%5C%20I%3DK%2Ai%3D10000%2A6%3D60000%28bit%29%3D7500%28bait%29%3D7%2C3%20%28Kbait%29)
Ответ: 7,3 Кбайт
Задача 3![K_1=60*40=2400 \\ i=8(bit)=1(bait) \\ I=1280(Kbait)=1310720(bait) \\ I=K*i \\ 1310720=K_1*K_2*i=2400*K_2 \\ K_2=546,13=547](https://tex.z-dn.net/?f=K_1%3D60%2A40%3D2400%20%5C%5C%20i%3D8%28bit%29%3D1%28bait%29%20%5C%5C%20I%3D1280%28Kbait%29%3D1310720%28bait%29%20%5C%5C%20I%3DK%2Ai%20%5C%5C%201310720%3DK_1%2AK_2%2Ai%3D2400%2AK_2%20%5C%5C%20K_2%3D546%2C13%3D547)
Ответ: 547
Задача 4![N=2^i \\ 2^i=256 \\ i=8(bit)=1(bait) \\ I=1/32(Mbait)=1024/32(Kbait)=32(Kbait)=32*8(bait)=32768(bait) \\ K=I/i=32768/1=32768](https://tex.z-dn.net/?f=N%3D2%5Ei%20%5C%5C%202%5Ei%3D256%20%5C%5C%20i%3D8%28bit%29%3D1%28bait%29%20%5C%5C%20I%3D1%2F32%28Mbait%29%3D1024%2F32%28Kbait%29%3D32%28Kbait%29%3D32%2A8%28bait%29%3D32768%28bait%29%20%5C%5C%20K%3DI%2Fi%3D32768%2F1%3D32768)
Ответ: 32768
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99);
a.Println;
a.SortedDescending.Println;
end.
<u><em>Тестовое решение</em></u>
n= 17
-38 37 -82 54 62 -28 33 37 -61 63 -66 63 -81 -63 3 38 12
63 63 62 54 38 37 37 33 12 3 -28 -38 -61 -63 -66 -81 -82
Program mashina;
Uses crt;
var s1, s2, s3: string;
begin clrscr;
write('s1 = ');
readln(s1);
write('s2 = ');
readln(s2);
writeln;
s1:=copy(s1,3,2);
writeln('s3 = ',s1+s2);
readln ;
end.