SOMA DOS N PRIMEIROS NUMEROS

É uma linguagem de programacao bem didatica. E axo q tem como pegar gratis na internet.

Para quem está a dar os primeiros passos no mundo da programação, eis uma breve introdução a uma das linguagens de programação mais usadas por principiantes e também por alguns desenvolvedores:

O Pascal é uma linguagem de programação, concebida por Niklaus Wirth, para o ensino do desenho de algoritmos e metodologias de programação.

É, por isso muito usada para fins académicos, pois é uma linguagem de alto nível muito próxima do inglês escrito. O nome Pascal é uma homenagem a Blaise Pascal, a primeira pessoa a conceber uma "máquina de calcular".

Dado n, calcular a soma dos n primeiros números naturais (primeira alternativa via progressão aritmética e segunda alternativa baseada em somas sucessivas).

A. SOLUÇÃO

program somaNaturais1;

uses wincrt;

var n,s:integer;

begin

read(n);

s:=(1+n)*n div 2;

write(s)

end.

OUTRA SOLUÇÃO

program somaNaturais2;

uses wincrt;

var n,s,i:integer;

begin

read(n);

s:=0;

i:=0;

while i<n do

begin

i:=i+1;

s:=s+i

end;

write(s)

end.

3. Calcular o máximo divisor comum de dois inteiros a e b (primeira alternativa baseada no algoritmo de Euclides e segunda alternativa baseada em divisões sucessivas).

1. .SOLUÇÃO

program mdc;

uses wincrt;

var a,b:integer;

begin

read(a,b);

while a<>b do

if a>b

then a:=a-b

else b:=b-a;

write(a)

end.

2. SOLUÇÃO

program mdc;

uses wincrt;

var a,b,r:integer;

begin

read(a,b);

while b > 0 do

begin

r:=a mod b;

a:=b;