Pascalzim

1) Faça um programa que receba um número positivo e maior que zero, calcule e mostre:
a) o número digitado ao quadrado,
b) o número digitado ao cubo,
c) a raiz quadrada do número digitado;
d) a raiz cúbica do número digitado.
Obs.: O final da leitura dos dados se dará com a entrada de um “número negativo”.

Program numero;
Var n,q,c,rq,rc:real;
Begin
n:=1; while (n>-1) and (n0) do begin writeln('Digite um número positivo maior que zero para continuar ou negativo para sair: '); readln(n); if n>0 then begin q:=exp(2*ln(n)); c:=exp(3*ln(n)); rq:=sqrt(n); rc:=exp((1/3)*ln(n)); writeln(n,' ao quadrado é: ',q); writeln(n,' ao cubo é: ',c); writeln('Sua raiz quadrada é: ',rq); writeln('Sua raiz cúbica é: ',rc); end; end;
End.

2) Faça um programa que verifique se os números lidos são números primos. Apresente uma mensagem e conte cada vez que for primo. Escreve o total de primos digitados. Faça isso para vários números, até o usuário digitar um valor menor ou igual a 0.

Program num_primo;
Var n,i,x,contador:integer;
Begin
contador:=0; n:=1; while n>0 do begin x:=0; writeln('Digite um número positivo. Para sair digite 0 ou um número negativo'); readln(n); for i:=2 to n-1 do begin if n>0 then if (n mod i)=0 then x:=1; end; if n>0 then if x=0 then begin writeln('É primo!'); contador:=contador+1; end else writeln('Não é primo!'); end; writeln('A quantidade de números primos apresentados é: ',contador);
End.

3) Faça um programa que receba duas datas e retorne a diferença entre elas em dias. Faça isso para vários números, até o usuário digitar 0 para as duas datas.

Program diferenca_datas;
Var d1,d2,m1,m2,a1,a2,data1,data2,diferenca:integer;
Begin
d1:=1; m1:=1; a1:=1; d2:=1; m2:=1; a2:=1; while (d10) and (m10) and (a10) and (d20) and (m20) and (a20) do begin writeln('Digite uma data (Exemplo: dd/mm/aaaa). Para sair digite 0 para dia, mês e ano');//Considere mês = 30 dias
readln(d1,m1,a1);