// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqGen(ReadInteger('n='),1,1,(x,y)->x+y).Println
end.
<u><em>Тестовое решение:</em></u>
n= 10
1 1 2 3 5 8 13 21 34 55
1)var
a,b,h:real;
begin
readln(a);
readln(b);
readln(h);
while a<b do
begin
writeln(a,' ',2*cos(a)-1:8);
a+=h;
end
<span> end.
2)</span>var
eps,sum,current,n:real;
begin
readln(eps);
sum:=0;
n:=0;
repeat
current:=2*n-1/power(2,n);
n+=1;
sum+=current;
until current>eps;
writeln(sum);
<span>end.</span>
16 * 32 = 2^4 * 2^5 = 2^9
9 бит для кодировки одного места в зрительном зале.
Ответ : 9 бит
const N=10000;
var a:array[1..n] of integer;
i,l,s:integer;
begin
writeln('Введите количество элементов массива');
readln(l);
writeln('Сгенерированный массив: ');
s:=0;
for i:=1 to l do begin
a[i]:=random (101)-50;
s:=s+a[i];
write(a[i]:4);
end;
writeln;
write('Сумма: ',s);
end.