Ad 1-2015 Fundamento De Programação

Escreva um programa em Pascal que leia do teclado um inteiro n, maior ou igual a 1, e que

apresente no vídeo n linhas da forma abaixo.

Por exemplo, as seguintes linhas devem ser apresentadas se n = 5.

1

2 3

3 4 5

4 5 6 7

5 6 7 8 9

Se n < 1, uma mensagem de erro deve ser apresentada no vídeo.

2a Questão (2,0 pontos)

Faça um programa em Pascal que leia números positivos do teclado, até que o número zero

seja digitado (não considere o zero nas estatísticas), e escreva na tela:

(a) quantos foram os números lidos;

(b) a quantidade de números pares lidos;

(c) a quantidade de números primos (2, 3, 5, 7, 11, 13, 17, ...) lidos;

(d) o número de vezes em que o número lido foi igual ao seu antecessor;

(e) o número de vezes em que o número lido foi maior que o primeiro número lido.

3a Questão (1,0 ponto)

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

4a 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.

5a 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.

6a 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.