Написать программу вычисляющую среднее арифметическое целых чисел от 0 до 100.

Question

Написать программу вычисляющую среднее арифметическое целых чисел от 0 до 100.

Answer 1

Var i,k:integer;
s:real;
begin
for i:=0 to 100 do begin
s:=s+i;
k:=k+1;
end;
s:=s/k;
writeln (s:5:2);
end.