Задать вопрос Регистрация
Помочь другим

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

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

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years