На отрезке от a до b найти среднее арифметическое всех чисел, включая концы отрезка (решить на Turbo Pascal)

Question

Информатика

Лонгина

30 декабря, 16:44

На отрезке от a до b найти среднее арифметическое всех чисел, включая концы отрезка (решить на Turbo Pascal)

+3

Ответы (1)

Знаете ответ?

Алевтинка · Answer 1

program sdss;

uses crt;

var a, b, i:integer;

c:real;

begin

clrscr;

readln (a, b) ;

for i:=a to b do

c:c+i;

c:=c / (b-a+1) ;

writeln (c:2:4) ;

readkey;

end.