UsG_LORDelo_

tipo posso ajudar com pascal. Se bem que não aconselho muito pegar codigo pronto.. eh melhor vc tentar aprender, mas mesmo assim vou disponibilizar (assim que eu fizer).

mas so pra explicar rapidamente (cai q vc consegue fazer a partir da explicacao).
Voce vai ler todos os dados na matriz, blz, dai depois vc vai percorrer a matriz e ao mesmo tempo vai gravando no vetor o valor do fatorial do valor correspondente ao campo da matriz. É aconelhavel q vc faça uma funcao fatorial para ajudar no processo.

As ultimas questões são só teste de mesa, eh so vc ir 'rodando' o programa à mão que você vai descobrir o que você quer. Quanto aos outros, é so parar um pouquinho pra pensar que sai a resposta! ^^

Tem como vc passar algum link de download de materia dessa linguagem?

coloca esses códigos num compliador de C, coloca um printf com as variaveis no final do programa q vc vai descobrir o valor delas.

Segue o código para a questao 1.
Ta em pascal.

[codebox]Program Algoritmo ;
Var
flag,voto,votoa,votob,votobr,Voton,contg:integer;
Begin
Flag := 0; VotoA:=0; VotoB:=0; VotoBr:=0; ContG:=0; Voton:=0;
While Voto <> -1 do
begin
Writeln('Infome o seu voto: 1 para Candidato A, 2 para Candidato B,');
Writeln('3 pra voto em branco e 0 para voto nulo. Para encerrar digite -1');
readln(Voto);
While (Voto <> 1) and (Voto <> 2) and (Voto <> 3) and (Voto <> 0) and (Voto <> -1) Do
begin
Writeln('Voto inválido, Informe Seu voto: 1(Candidato A), 2(Candidato , 3(Branco) e 0(Nulo)');
Readln(voto);
end;

if voto = 1 then
begin
inc(VotoA);
inc(contG);
End
else
begin
If voto = 2 then
Begin
inc(VotoB);
inc(contG);
End
else
begin
if voto = 3 then
Begin
Inc(VotoN);
inc(contG);
end
else
begin
if Voto = 0 Then
begin
inc(VotoBR);
inc(contG);
end;
end;
end;
end;


end;
Writeln('Total de votos computados:',contG);
Writeln('Total de votos do Candidato A:',VotoA,'. Percentual: ',(VotoA Div ContG)*100,'%');
Writeln('Total de votos do Candidato B:',VotoB,'. Percentual: ',(VotoB Div ContG)*100,'%');
Writeln('Total de votos Em branco:',VotoBR,'. Percentual: ',(VotoBR Div ContG)*100,'%');
If VotoA > VotoB then
Writeln('Vencedor: Candidato A')
else
Writeln('Vencedor: Candidato B');
End.[/codebox]


Questão 2 (detalhe o programa só roda uma vez, ele nao roda ate o usuário digitar tal valor pra encerrar.)
[codebox]Program Algoritmo2 ;
Var
x,n,sub,cont:integer;
Begin
x:=1; cont:=0; sub:=1;
Writeln('Informe o número que você deseja obter a raiz.');
Readln(n);
while (n > 0) Do
begin
n:= n - x;
x:=x+2;
cont:=cont+1;
end;
if n < 0 then
Writeln('Raiz não natural')
else
Writeln('raiz do Número é: ',cont);

End.[/codebox]