TEXT   7
Código compartilhado do Portugol Webstudio
Guest on 25th May 2023 11:55:19 PM


  1. programa {
  2.         funcao inicio() {
  3.                 inteiro n, res = 0, cont
  4.                
  5.                 escreva("Digite um número: ")
  6.                 leia(n)
  7.                
  8.                 para (cont = 1; cont <= n; cont++)
  9.                
  10.                 res = res + cont
  11.                
  12.                 escreva(res)
  13.                
  14.         }
  15.  
Raw Paste

Login or Register to edit or fork this paste. It's free.