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

Question

Информатика

Панюха

16 сентября, 23:03

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

+1

Ответы (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.