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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
