exercicios pascal

Nome: josé victor araujo da silva.
Matricúla: 2014102033

1. Dada uma seqüência de números inteiros não-nulos, seguida por 0, imprimir seus quadrados.

Program sequencianumerica ; var numero : integer; quadrado: integer ;

Begin

write('digite o numero que você quer que seja elevado ao quadrado: '); read(numero);

while (numero 0) do begin quadrado := numero * numero; writeln('O quadrado do numero que você digitou é :', quadrado); read(numero) end End.

2. Dado um número inteiro positivo n, calcular a soma dos n primeiros números inteiros positivos.

Program teste; var number : integer; soma : integer;

Begin

write('digite um número: '); read(number); soma := n * (n + 1) div 2;

writeln (' a soma dos numeros é: ', soma);

End.

3. Dados um inteiro x e um inteiro não-negativo n, calcular x n.

program Potencias; var num1: integer; num2: integer; expo: integer; contador: integer; begin repeat write('digite um numero inteiro e um natural: '); read(num1); write('digite um numero natural: '); read(num2); if num2 < 0 then writeln('O segundo numero digitado deve ser natural!') until num2 >= 0; expo := 1; contador := 0; while(contador num2) do begin expo := expo * num1; contador := contador + 1 end; writeln ('O valor do primeiro número digitado elevado ao segundo numero digitado é : ', expo) end. 4 -Dados três números, imprimi-los em ordem crescente.
Program teste10 ; var fator1, fator2, fator3 : integer;

Begin

write('digite o primeiro numero: '); read(fator1); write('digite o segundo numero: '); read(fator2); write('digite o terceiro numero: '); read(fator3); begin if (fator1< fator2) and (fator2 < fator3) and (fator1 < fator3) then