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

Question

Информатика

Уля

26 ноября, 12:46

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

+5

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