Составьте программу нахождения суммы всех целых чисел в диапазоне от -5 до n
Составьте программу нахождения суммы всех целых чисел в диапазоне от -5 до n
Гость
Ответ(ы) на вопрос:
ГостьProgram n1;
var i,sum,n: integer;
begin
readln(n);
sum:=0;
for i:=-5 to n do sum:=sum+i;
writeln(sum);
end.
Не нашли ответ?
Похожие вопросы