Algoritmo / programa em Pascal

30. Escrever um algoritmo/programa em Pascal que lê um número não determinado de valores para m, todos inteiros e positivos, um de cada vez. Se m for par, verificar quantos divisores possui e escrever esta informação. Se m for ímpar e menor do que 12 calcular e escrever o fatorial de m. Se m for ímpar e maior ou igua1 a 12 calcular e escrever a soma dos inteiros de l até m.

Questão do Trabalho.

31. Escrever um algoritmo/programa em Pascal que lê um número não determinados de valores a, todos inteiros e positivos, um de cada vez, e calcule e escreva a média aritmética dos valores lidos, a quantidade de valores pares, a quantidade de valores impares, a percentagem de valores pares e a percentagem de valores ímpares.

Questão do Trabalho.

32. Escrever um algoritmo/programa em Pascal que escreve os números primos entre 100 e 200, bem como a soma destes números.

program ex32;

uses crt;

var x, i, cont: integer;

begin

clrscr;

for x:= 100 to 200 do

begin

cont:=0;

for i:= 1 to x do

begin

if x mod i = 0 then

cont:=cont + 1;

end;

if cont<=2 then begin writeln('O numero ', x, ' e primo.'); end; end; readkey; end.

33. Escrever um algoritmo/programa em Pascal que lê 5 conjuntos de 4 valores a, b, c, d, um conjunto por vez e os escreve assim como foram lidos. Em seguida, ordene-os em ordem decrescente e escreva-os novamente.

program ex33;

uses crt;

var i, a, b, c, d, aux: integer;

begin

clrscr;

for i:= 1 to 5 do

begin

write('Informe um valor: ');

readln(a);

write('Informe um valor: ');

readln(b);

write('Informe um valor: ');

readln(c);

write('Informe um valor: ');

readln(d);

writeln('Numeros digitados: ', a:6, b:6, c:6, d:6);

if a

34. Escrever um algoritmo/programa em Pascal que lê 10 valores para n, um de cada vez, todos inteiros e positivos, e para cada n lido, escreva a tabuada de 1 até n de n.

program ex34;

uses crt;

var i, j, n: integer;

begin

...