Var
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.
N=3 (три цвета прожектора)
i=4 (прожекторы)
A= N^i
A=3^4=81
Переведем в биты: 16 это 2^4, кбайт это 2^10*2^3, получим 2^17 бит.
a={}
s=0.0
n=30
k=0
for i in 1..n
a[i]=rand(1..100)
s=s+a[i]
end
s=s/30
for i in 1..n
if (a[i] > s)
k=k+1
end
end
p k