Var n:integer; sr:real; i,s:integer; begin writeln('n='); readln(n); s:=0; for i:= 1 to n do begin s:=s+i; sr:=s/n; end; writeln('sr=',sr); readln; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
