Ответ:
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
writeln('III');
var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
writeln;
while a.Any() do
begin
write(a[0], ' ');
a.RemoveAt(0);
if not a.Any then break;
write(a.Last, ' ');
a.RemoveAt(a.Count - 1);
if not a.Any then break;
var n := 0;
if a.Count > 1 then n := a.Count div 2 - 1;
write(a[n], ' ');
a.RemoveAt(n);
end;
end.
Объяснение:
Pascal
//Эта программа корректно работает для двухзнаных чисел
// при a > 100 будет к примеру 125 =>125-(12+5)...
var a,k : integer;
begin
k := 0;
readln (a);
while a > 0 do
begin
a := a - (a div 10 + a mod 10);
k := k +1;
end;<span>
writeln (k);
end.</span>
16=2^4; ---> 4 бит для кодировки одного символа
1 байт = 8 битам; 0,5байта =4 битам.
1Кбайт =2^10 байт=1024 байт
4* 1024 бита =0,5 байтов *1024=0,5 *2^10 байтов = 0,5 Кбайтов
ответ 1) 0,5
var
s, s_new: string;
i: integer;
begin
read(s);
for i := 1 to length(s) do
s_new := s_new + s[i] + ' ';
writeln(s_new);
end.
2 байта = 2*8 бит = 16 бит = 16 разрядов