Напишите функцию которая вычисляет сумму чисел от a до b (pascal ABC)
Напишите функцию которая вычисляет сумму чисел от a до b (pascal ABC)
Гость
Ответ(ы) на вопрос:
Гость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;
Гость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.
Не нашли ответ?
Похожие вопросы