//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of integer;
i:integer;
b:boolean;
begin
b:=true;
writeln('Array:');
for i:=1 to n do readln(ar[i]);
for i:=1 to n div 2 do
if ar[i]<>ar[n-i+1] then b:=false;
if b=true then writeln('Симметричны') else writeln('Не симметричны');
end.
Пример ввода:
1
2
3
2
1
Пример вывода:
Симметричны
24 * 2 = 48 байта - В Unicode каждый символ кодируется 2 Байтами
Зная, что в 1 байте содержится 8 бит делаем следующее:
48 байта * 8 = 384 бит
<span>Ответ: 384 бит</span>
Расширенный вид двухзначного числа в системе счисления по основанию n имеет вид n × a + b
Известно, что b=2, поэтому можно записать
n × a + 2 = 87 → n × a = 85.
Разложим число 85 на простые множители: 85 = 5 × 17
Основание системы счисления n может быть только максимальным из множителей, т.е. 17, тогда a=5 и получаем окончательно
52₁₇ = 87₁₀
Ответ: n=17
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(10,-40,40); a.Println;
a.SortedDescending.Println
end.
<u><em>Тестовое решение:</em></u>
20 -32 1 3 0 21 -14 21 32 -6
32 21 21 20 3 1 0 -6 -14 -32
То може погіршитися зір, може розвинутися залежність від комп*ютера