Sub Z1()
Dim n As String
s = InputBox("Как тебя зовут?")
MsgBox ("Привет, программист " & s & "!")
End Sub<span>
</span>
Const
nm = 100;
type
Mas = array[1..nm] of integer;
procedure Shell(var a: Mas; n: integer);
{ сортировка методом Шелла }
var
i, j, step, t: integer;
begin
step := n div 2;
while step > 0 do
begin
for j := n - step downto 1 do
begin
i := j;
while i <= n - step do
begin
if a[i] > a[i + step] then
begin
t := a[i];
a[i] := a[i + 1];
a[i + 1] := t
end;
i := i + step
end
end;
step := step div 2
end
end;
var
x: Mas;
i, n: integer;
begin
Randomize;
Write('Введите число элементов в массиве (1-100): ');
Readln(n);
Writeln('Исходный массив');
for i := 1 to n do
begin
x[i] := Random(101) - 50;
Write(x[i]:4)
end;
Shell(x, n);
Writeln(#13#10, 'Отсортированный массив');
for i := 1 to n do Write(x[i]:4)
end.
Тестовое решение:
Введите число элементов в массиве (1-100): 20
Исходный массив
-8 -17 -19 1 -3 23 -33 30 -27 -45 12 26 -24 18 37 8 47 -14 -19 -3
Отсортированный массив
-45 -33 -27 -24 -19 -19 -17 -14 -8 -3 -3 1 8 12 18 23 26 30 37 47
Include
int main()
{
float a,b,c;
cin >> a >> b >> c;
if((a>b && b>c) || (c>b && b>a))
cout << b;
else if((b>a && a>c) || (c>a && a>b))
cout << a;
else if((a>c && c>b) || (b>c && c>a))
cout << c;
else cout << “no correct answer”;
return 0;
}
Для начала
КОИ-8 =1 символ равен 8 бит
Для таго, чтобы найти Iобьем нужно=i×n(I обьем= 1 символ чем кодируеться здесь 8 битами[i] × кол.строк × кол. символов{Символы считаются все т.е:пробел , буква , цыфра , знаки препинания и т.д})
n=кол.строк × кол. символов
Iобьем=8×57(точку в конце предложения ,я считал)=456 бит=57байт=0,05кбайт
Ответ:456 бит=57байт=0,05кбайт (В чем записать ответ в этой задаче в битах , в байтах и кбайтах, я незнаю , так что пиши на своё усмотрение;Но лутше в байтах)
1-Кодирование
2-передача это там где перец
3-обработка там где краб
4-хранение там где рюкзак
А дальше не знаю