AD1 1.2015 FP

Faça um programa em Pascal que leia números inteiros do teclado até que um número

negativo seja lido e que escreva no vídeo a soma de todos os números lidos que sejam

palíndromos.

3

a

Questão (1,0 ponto)

Faça uma versão recursiva (sem utilizar repetição) do programa da 1

a

Questão.

4

a

Questão (2,0 pontos)

Faça um programa em Pascal que leia números inteiros do teclado até que um número

negativo seja lido e que escreva no vídeo a soma de todos os números lidos que sejam

palíndromos.

Definição: um número é palíndromo se e somente o primeiro dígito for igual ao último, o

segundo dígito for igual ao penúltimo, e assim sucessivamente.

5

a

Questão (2,0 ponto)

Utilizando as funções randomize e random do Pascal, faça um programa em Pascal que gere

um vetor de 100 elementos cujos valores aleatórios devem variar de 1 a 10. Escreva no vídeo o

vetor gerado. Identifique neste vetor qual é o valor que mais ocorreu e o que menos ocorreu, e

escreva-os no vídeo. Caso haja empate, escreva todos os que mais ocorreram e os que menos

ocorreram.

6

a

Questão (2,0 pontos)

Faça um programa em Pascal que leia strings do teclado até que a string vazia seja digitada.

Escreva na tela a string de maior comprimento que possua apenas digitos. Além disso, escreva

a soma de todos os dígitos lidos e a quantidade de strings lidas. Caso nenhuma string possua

apenas dígitos, informe ao usuário.