blob: 3fe33715329516c99f371567748fed6750ac39be (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
program mittle;
uses
lowlevelunit, SysUtils;
var
Zeile: ansiString;
Zahl,Summe,QSumme: extended;
Anzahl: longint;
begin
while not eof do begin
readln(Zeile);
Anzahl:=0;
Summe:=0;
QSumme:=0;
write(erstesArgument(Zeile,' ',false));
while Zeile<>'' do begin
inc(Anzahl);
Zahl:=strToFloat(erstesArgument(Zeile,' ',false));
Summe:=Summe+Zahl;
QSumme:=QSumme+sqr(Zahl);
end;
writeln(' '+floatToStr(Summe/Anzahl)+' '+floatToStr(sqrt(QSumme/Anzahl-sqr(Summe/Anzahl))));
end;
end.
|