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

1-2+3-4+5...n. Составьте в pascal

ОТВЕТЫ



begin
  Writeln('Sum=',Range(1,ReadInteger('n=')).Sum)
end.


n= 13
Sum=91

731
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам