Напишите программу в Паскале, которая определяет среднее арифметическое чисел в интервале от N до N1

Question

Ритуля

25 апреля, 04:27

+5

Ответы (1)

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

Пармен · Answer 1

Var N, N1, Sum, i: integer;

begin

readln (N, N1) ;

for i : = N to N1 do Sum : = Sum + i;

writeln (sum / (n1 - n + 1)) ;

end.