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

gamerallgames3457643 gamerallgames3457643    2   08.03.2019 03:50    2

Ответы
рф777 рф777  24.05.2020 04:50

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. 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика