ответ:
только с 4,к сожалению(
объяснение:
паскаль
1var n,x,s,i: integer;
2 sr: real;
3 begin
4 writeln ('кол-во чисел в последовательности n=');
5 readln (n);
6 s: =0;
7 for i: =1 to n do
8 begin
9 read (x);
10 s: =s+x;
11 end;
12 sr: =s/n;
13 writeln('sr=',sr)
14 end.
ответ: № 2
program test;
var
n, i, j, f: integer;
s: double;
begin
write ('введите n: ');
readln (n);
s : = 1;
for i : = 1 to n do begin
f : = 1;
for j : = 1 to i + 1 do
f : = f * j;
s : = s + i / f;
writeln (i, s : 20 : 15);
end;
readln;
end.
ответ:
только с 4,к сожалению(
объяснение:
паскаль
1var n,x,s,i: integer;
2 sr: real;
3 begin
4 writeln ('кол-во чисел в последовательности n=');
5 readln (n);
6 s: =0;
7 for i: =1 to n do
8 begin
9 read (x);
10 s: =s+x;
11 end;
12 sr: =s/n;
13 writeln('sr=',sr)
14 end.
ответ: № 2
program test;
var
n, i, j, f: integer;
s: double;
begin
write ('введите n: ');
readln (n);
s : = 1;
for i : = 1 to n do begin
f : = 1;
for j : = 1 to i + 1 do
f : = f * j;
s : = s + i / f;
writeln (i, s : 20 : 15);
end;
readln;
end.