Предмет: Информатика,
автор: Ололюшина
на отрезке от a до b найти среднее арифметическое всех чисел, включая концы отрезка(решить на Turbo Pascal)
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Математика,
автор: dima0001162
Предмет: Русский язык,
автор: sauleesanova
Предмет: Алгебра,
автор: mila635
Предмет: Математика,
автор: А5Л5И5Н5А5