или, если прогрессии не отменяли, а программа предусматривает хранение переменных N и S:
Пример работы:
или, если прогрессии не отменяли, а программа предусматривает хранение переменных N и S:
beginvar N := ReadInteger('N:'); var S := n*(n+1)/2;Print('S:',S); end.Пример работы: