Projecto de Programas em Pascal

PARTE I
Exercícios da Ficha
1. Programa para calcular um factorial
Program factorial ; var fact, a, num: integer; Begin writeln('introduza o valor'); read(num); fact:=1; for a:=1 to num do begin fact:=fact*a; end; write('O Valor de ', num, ' Factorial é: ', fact); End.

2. Programa para verificar se um numero é ou não Armstrong.
Program Amstrong; var n,a,b,c,result:integer; Begin writeln('digite o valor'); read(n); a:=n div 100; b:=(n mod 100) div 10; c:=n mod 10; result:=(a*a*a)+(b*b*b)+(c*c*c); if(n=result) then writeln (' o nr',n,' e amstrong!') else writeln('o nr',n,' nao e amstrong!');
End.

3. Programa que imprime a série de Fibonacci até um número n.
Program Serie_de_Fibonacci ; var a1, a2, p, i, n: integer; Begin write('digite o valor'); readln(n); a1:=1; a2:=1; write('1 1'); i:=3; while ( i 0 then write ('o numero nao e negativo'); End.

9. Programa para informar se o número digitado é par ou ímpar.
Program par_ou_impar ;
Var n: integer; Begin writeln ('digite o valor'); read (n); if n mod 2 = 0 then writeln ('o numero e par'); if n mod 2 = 1 then write ('o numero e impar'); End.

10. Programa que diz qual dos números é maior dos três digitados.
Program maior ; Var a, b, c, maior: integer;
Begin
Writeln ('Digite o valor de a ');
Read (a);
Writeln ('Digite o valor de b ');
Read (b);
Writeln ('Digite o valor de c ');
Readln (c); if ((a > b) and (a>c)) then begin maior:=a; end; if ((b > a) and (b>c)) then begin maior:=b; end; if ((c > a) and (c>b)) then begin maior:=c; end; writeln (' o maior número é : ',maior); End.

11. Programa que soma os dígitos de um dado número.
Program Soma_de_digitos; var n,soma,d: integer; begin writeln('insira o numero'); readln(n); soma:=0; while (n0) do begin d:=n