<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrGen(ReadInteger('n='), i -> (i + 1) * 6);
a.Println;
Println('Среднее', a.Average)
end.
<h3>n= 13</h3><h3>6 12 18 24 30 36 42 48 54 60 66 72 78</h3><h3>Среднее 42 </h3>
Var
i,sum:integer;
begin
sum:=0;
for i:=1 to 100 do
if (i mod 2<>0) then
sum:=sum+i;
write(sum);<span>
end.</span>
Часть последовательности, начинающаяся с числа 50 раскодируется как ProgramComputer IBM PC, а для раскодирования первой части (
<span>88 AD E4 AE E0 AC A0 E2 A8 AA A0) надо знать кодировку, так как это дополнительная часть таблицы ASCII (значения с кодом больше 7F).
Кодировка в задании не указана.
</span>
Каждой букве соответствует своя цифра
М- 2 О - 0 Л - 3 О-0 К-1 О-0
203010 - получили число в 4-ой системе счисления,переведем его в 10-ю,а после этого в 16-ю
203010 = 1*4 + 3*4^3 + 2*4^5 = 4+192 + 2048 = 2244 в десятичной системе
2244 нужно перевести в 16 и получиться ответ