2-12) Escreva um algoritmo que calcule e escreva a soma Sn dos n primeiros termos de uma progressão

algoritmo "Calcular a Soma Sn"




var

a1, an, r: inteiro

Sn, n: real

inicio

escreval (" Calcular a soma Sn ")

escreva ("qual o valor de r -")

leia (r)

escreva ("qual o valor de a1 -")

leia (a1)

escreva ("qual o valor de an -")

leia (an)

n <- ((an-a1)/r)+1

Sn <- ((a1+an)/2)*n

escreva ("O valor Sn eh ", Sn:2:2)



fimalgoritmo