<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(30,-30,94,45,-6,1,2,-50,25,-84,-55,-33,-31,-66,
34,72,26,-3,-13,27,-97,57,-42,29,-9);
Writeln('Исходный массив'); a.Println;
Sort(a);
Writeln('Упорядоченный по возрастанию массив'); a.Println;
Writeln('Максимальный элемент ',a.Last,', минимальный ',a.First)
end.
<u>Пример</u>
Исходный массив
30 -30 94 45 -6 1 2 -50 25 -84 -55 -33 -31 -66 34 72 26 -3 -13 27 -97 57 -42 29 -9
Упорядоченный по возрастанию массив
-97 -84 -66 -55 -50 -42 -33 -31 -30 -13 -9 -6 -3 1 2 25 26 27 29 30 34 45 57 72 94
Максимальный элемент 94, минимальный -97
1-д) var a,b:longint;
c:real;
c:=Sqrt(100)*a+16/5*b;
write (c);
end.
3-а) var b,c:longint;
c:=Sqrt(1)+2*1*b+Sqrt(b);
write (c);
end.
3-б) var a,c:longint;
c:=Abs (1+Sqrt(a));
write (c);
end.
var x: integer;
begin
write('Введите число: ');
readln(x);
if x mod 2=0 then write('число четное')
else write('число нечетное');
end.
2AF (16) = 10 1010 1111 (2)
Вычисляется подстановкой из таблицы
1 = 1
2 = 10
3 = 11
4 = 100
5 = 101
6 = 110
7 = 111
8 = 1000
9 = 1001
A = 10 = 1010
B = 11 = 1011
C = 12 = 1100
D = 13 = 1101
E = 14 = 1110
F = 15 = 1111
2AF (16) = 1257 (8)
Вычисляется после преобразования в 2-ю систему счисления и деления двоичного числа на триады (группа цифр по 3).
Тогда получим: 001 010 101 111(2)=1 2 5 7 (8) = 1257(8)