Faça um algoritmo que execute a soma dos 10 primeiro números naturais???

Question

Dica:
Pode se utilizar qualquer uma das instruções de Loop vista.
Quais são os 10 primeiros números naturais.
O passo deverá ser igual a 1.

Answer 1

a =1
b= 0
enquanto a<= 10 faca
b = a+b
a = a+1
fim enquanto
imprima b

Answer 2

eu não sei o que é Loop vista, mais aqui vai

dim i as integer
dim resposta as integer

for i = 1 to 10
resposta = resposta + i
next i

Msgbox "A soma é de: " & CStr(resposta), vbInformation + vbOkOnly, "Soma Nºs inteiros"

**************************************************

bom na matemática, isso é resolvido com PA (Progressão Aritimética)

Sn =[ (a1 + an) . n] / 2

Answer 3

Var
soma,x:inteiro

Início
soma=1
para x=1 ate 10 faca
soma = soma+x
fimPara
Escreva(soma)
fimAlgorítmo

Answer 4

DEF A
A = SOMA 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10
PRINT A