Question

ПЛИЗЗЗ РЕШИТЕ ЗАДАЧУ ПО ПАСКАЛЬ
СМОТРИТЕ УСЛОВИЕ НИЖЕ

Answer 1

var
    i, a, b, s: integer;

begin
    readln(a, b);
    s := 0;
    
    for i := a to b do
        s := s + i;
    
    writeln((s / (b - a + 1)):0:6);
end.