Вроде так, но на всякий проверь на самом паскале, насчёт знаков и тд
1.
var a:array[1..100] of integer;
n,i:integer;
begin
write('N = ');readln(n);
writeln('Полученный массив:');
for i:=1 to n do a[i]:=2*i-1;
for i:=1 to n do write(a[i]:3);
writeln;
end.
Пример:
N = 5
Полученный массив:
1 3 5 7 9
2.
const n=15;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
write('K = '); readln(k);
for i:=1 to n div k do write(a[i*k]:3);
writeln;
end.
Пример:
Массив A:
6 6 8 14 15 5 18 6 18 1 17 6 3 19 2
K = 3
8 5 18 6 2
1) 2^4=16 этажей
2) N=(кол-во дней в месяце)*(кол-во месяцев)*(кол-во часов в сутках)= 31*12*24=8928; N=2^I =8928; I =log2 8928 ≈13,124 бит - кол-во инф-ции
3) 2^4<25<2^5 ---> 5 бит для кодирования 1-ого символа; 5*8=40 бит для кодирования сообщения из 8 символов.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadSeqInteger(20).Where(t -> Abs(t) < 10)
.Aggregate(BigInteger(1), (p, q)-> p * q).Println
end.
<h2>Пример</h2><h3>9 9 9 9 9 9 9 9 9 9 9 9 9 -9 -9 -9 -9 9 9 9</h3><h3>12157665459056928801 </h3>
Вот я рассказал несколько способов, как преобразовать word бесплатно и без особых заморочек, используя 2 разных подхода: Стандартные офисные программы, Специальное приложение.
Удачи !!!!!