Var K,n:integer;
S:real;
Begin
n:=0;
Write('K = ');ReadLn(K);
For K:= 1 to K do
Begin
Write((12*K-21)/3,' ');
if (12*K-21)/3 > 0 then
Begin
S:=S+(12*K-21)/3;
n:=n+1
End;
End;
WriteLn;
Write('Sr = ',S/n)
End.
F8 формула: =B12*5.
B5 формула: =А4+D6.
C7 формула: =D6/$A$2.
F9 формула: =$C$5-G1.
E5 формула: =C$5-$E9.
А) 948 (10) = 1110110100 (2) = 1664 (8) = 3B4 (16)
Б) 763 (10) = 1011111011 (2) = 1373 (8) = 2FB (16)
I=600Кбайт=600*2^10байт
К=60*х*64
i=2байта
x=600*2^10/
------------- = 10*2^3=320
2*60*2^6