Регистрация
Войти
Стать экспертом Правила
Информатика

Составить программу,которая вычисляет сумму от -10 до n

ОТВЕТЫ
Var i,b,n:integer;
begin
  readln(n);
  for i:=-10 to n do
   b:=b+i;
 writeln(b);
end.
228
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам