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

Question

Информатика

Веруля

25 июня, 03:37

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

+1

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