//PascalABC.Net 3.2
procedure swap (var a1, a2: integer);
begin
var promt:=a1;
a1:=a2;
a2:=promt;
end;
begin
var a:=ReadArrInteger ('Вводите массив: ', readinteger ('Размерность : '));
var i:=-1;
while (i+2)<length (a) do
begin
i+=2;
swap (a[i], a[i-1]);
end;
a.Print;
end.
С помощью операционной системы
1)1536 Кбайт в 1.5 Мбайтах.
1 Мбайт=1024кбайтам
2)120байт=960битам.
1 байт = 8 битам
3) Байт, Кбайт, Мбайт, Гбайт, Тбайт.
Что решить???? Уточни пожалуйста????????
1. Используя инструмент "Линия" начертим прямую линию.
2. Скопируем эту линию, повернем на 90 градусов влево.
3. При помощи инструмента "Линия" достроим треугольник.
4. Скопируем треугольник и расположим, как на скрине ниже.
5. Скопированный треугольник отразим на 180 градусов и расположим, как на скрине.
Итог и построение по шагам смотри во вложении.