Exercício 69 – Lógica de programação (Portugol Studio)

Descrição do exercício

Desenvolva um programa que leia o primeiro termo e a razão de uma PA (Progressão Aritmética), mostrando na tela os 10 primeiros elementos da PA e a soma entre todos os valores da sequência.

Resolução do exercício

programa
{
	
	funcao inicio()
	{
		inteiro cont, ninicial, nfinal, razao, soma = 0
		escreva("Digite um número: ")
		leia(ninicial)
		escreva("\n")
		escreva("Qual é a razão da P.A? => ")
		leia(razao)
		escreva("\n")
		escreva("---------------------------------")
		escreva("\n")
		nfinal = ninicial + (10 - 1) * razao
		escreva("\nSequência: ")
		para (cont = ninicial; cont <= nfinal; cont += razao) {
			ninicial = ninicial + razao
			soma = soma + (ninicial - razao)
			escreva(cont + ", ")
		}
		escreva("\n")
		escreva("\nSoma total dos números: " + soma)
	}
}