Pascal:посчитать сумму всех целых чисел от -10 до b (b больше =-10) напишите програму

Pascal:посчитать сумму всех целых чисел от -10 до b (b>=-10) напишите програму
Гость
Ответ(ы) на вопрос:
Гость
var i,b,s:integer; begin write('b = '); readln(b); s:=0; for i:=-10 to b do s:=s+i; writeln('s = ',s); end. Пример: b = 5 s = -40
Не нашли ответ?
Ответить на вопрос
Похожие вопросы