9 lines
135 B
Text
9 lines
135 B
Text
code CrLf=9;
|
|
code real RlOut=48;
|
|
int N;
|
|
real S;
|
|
[S:= 0.0;
|
|
for N:= 1 to 10 do S:= S + sq(float(N));
|
|
RlOut(0, sqrt(S/10.0));
|
|
CrLf(0);
|
|
]
|