Найти среднее арифметическое чисел от 1 до N, N-вводит пользователь

Question

Информатика

Юлианыч

22 июня, 08:34

Найти среднее арифметическое чисел от 1 до N, N-вводит пользователь

+5

Ответы (1)

Знаете ответ на вопрос?

Сана · Answer 1

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.