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

Question

Информатика

Вечеслав

20 мая, 14:24

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

+5

Ответы (2)

Знаете ответ на вопрос?

Христюша · Answer 1

Function isch (a, b: integer) : integer;

var i, sum: integer;

begin

sum:=0;

for i:=a to b do sum:=sum+i;

isch:=sum;

end;

Владлен · Answer 2

Function SumAB (a, b:integer) : integer;

begin

SumAB: = (a+b) * (b-a+1) div 2

end;

var

a, b:integer;

begin / / тестирование

Read (a, b) ;

Writeln ('Сумма от ', a,' до ', b,' равна ', SumAB (a, b))

end.