1 Function F(n:integer):real;
2 Var k:byte;
3 sr:real;
4 Begin
5 k:=0;sr:=0;
6 While n>0 do
7 Begin
8 sr:=sr+n mod 10;
9 n:=n div 10;
10 inc(k);
11 End;
12 F:=sr/k;
12 End;
Объяснение:
1 Function F(n:integer):real;
2 Var k:byte;
3 sr:real;
4 Begin
5 k:=0;sr:=0;
6 While n>0 do
7 Begin
8 sr:=sr+n mod 10;
9 n:=n div 10;
10 inc(k);
11 End;
12 F:=sr/k;
12 End;
Объяснение: