// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var a:array[1..20] of integer;
Randomize;
for var i:=1 to 20 do a[i]:=Random(-50,50); a.Println;
var b:=Range(2,20,2).Select(i->a[i]);
Writeln('Элементы с четными индексами по возрастанию');
b.Sorted.Println;
Writeln('Элементы с четными индексами по убыванию');
b.SortedDescending.Println;
end.
<u><em>Тестовое решение:</em></u>
-15 46 -34 -3 43 16 -17 -28 -19 12 -28 -11 48 -12 -1 33 -37 9 6 -40
Элементы с четными индексами по возрастанию
-40 -28 -12 -11 -3 9 12 16 33 46
Элементы с четными индексами по убыванию
46 33 16 12 9 -3 -11 -12 -28 -40
1) Можно сделать пустой слайд, а на следующем текст. По щелку первый слайд переключится на второй.
2) Можно на слайде написать текст, выделить его и сделать анимацию: чтобы он появлялся по щелчку мыши.
Или попроси одноклассников отвернуться. Или сделай много пустых слайдов, чтобы не было видно тот, который с текстом.
Т.е. выполнить матем. операции с этим числами, я так понял?
101011 (2) = 43 (10)
101 (2) = 5 (10)
101011 + 101 = 110000 (2) = 48 (10)
101011 - 101 = 100110 (2) = 38 (10)
101011 * 101 = 11010111 (2) = 215 (10)
101011 / 101 = 1000 (2) = 8 (10) - приблизительно. Точный результат 8,6 нельзя записать в двоичном виде.
var
i, p,
w:real;
begin
writeln('Введите
зарплату Иванова');
readln(i);
writeln('Введите
зарплату Петрова');
readln(p);
if i>p
then
writeln
('Иванов заработал больше Петрова') else
writeln
('Петров заработал больше Иванова');
w:=(i+p)/2;
writeln
('Средняя зарплата мальчиков ', w,
' руб.');
<span>end.</span>
16 байт = 16*8 бит = 128 бит