Регистрация
Войти
Стать экспертом Правила
Информатика

напишите функцию которая вычисляет сумму чисел от a до b

ОТВЕТЫ



function SumAB(a,b:integer):=Range(a,b).Sum;

begin // тестирование
  var a,b:integer; Read(a,b);
  Writeln('Сумма от ',a,' до ',b,' равна ',SumAB(a,b))
end.


13 58
Сумма от 13 до 58 равна 1633



function SumAB(a,b:integer):=(a+b)*(b-a+1) div 2;
786
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам