Programação

3)
PROGRAM FATORIAL;
Var
n,valor,cont,cont2,fatorial:integer;
Begin
writeln('Quantos numeros devem ser lidos?'); read(n); for cont:=1 to n do begin writeln('Digite o número'); read(valor); while(valor1 then begin for cont2:=valor downto 1 do begin fatorial:=fatorial*cont2; end; end; writeln(fatorial); end;
End.
4)versão otimizada
PROGRAM IMPAR;
Var 88. Some os números de 1 a 100 e imprima o valor.
89. Construa um Algoritmo que, para um grupo de 50 valores inteiros, determine:
a) A soma dos números positivos;
b) A quantidade de valores negativos;
90. Faça um algoritmo que imprima os múltiplos positivos de 7, inferiores a 1000.
91. Faça um algoritmo que imprima todos os números pares compreendidos entre 85 e 907. O algoritmo deve também calcular a soma destes valores.
92. Faça um algoritmo que calcule o valor de A, dado por:
N
N N A N 1 ... 3
2
2
1
+ + − + − = +
, onde N é um número inteiro positivo.
93. Uma rainha requisitou os serviços de um monge e disse-lhe que pagaria qualquer preço. O monge, necessitando de alimentos, indagou à rainha sobre o pagamento, se poderia ser feito com grãos de trigo dispostos em um tabuleiro de xadrez (que possui 64 casas), de tal forma que o primeiro quadro deveria conter apenas um grão e os quadros subsequentes, o dobro do quadro anterior. Crie um algoritmo para calcular o total de grãos que o monge recebeu.
94. Dado o conjunto de instruções a seguir, faça um algoritmo com quatro variações, colocando o comando de repetição adequadamente, de forma a:
a) Executar o conjunto 10 vezes;
b) Não executar nenhuma vez;
c) Executar o conjunto 100 vezes utilizando duas estruturas de repetição;
d) Executar N