Tencologia

3a Questão (1,0 pontos)

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

4a Questão (2,5 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 primos lidos.

Definição: um número é primo se e somente ele for maior que um e for divisível apenas por ele

mesmo e por 1.

Sugestão: use a função MOD do Pascal, que retorna o resto da divisão inteira.

Exemplo: (7 MOD 4) é igual a 3.

5a Questão (2,5 pontos)

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

20 elementos cujos valores aleatórios devem variar de 22 a 45. Escreva no vídeo o vetor

gerado. Identifique neste vetor qual é a maior sequência de valores adjacentes não

decrescentes e a escreva na tela. Caso haja empate, escreva uma delas.

6a Questão (1,5 pontos)

Faça um Programa em Pascal que leia strings do teclado, representando nomes de pessoas,

tais como: 'Manuel de Castro' e 'Chica da Silva'. Escreva no vídeo todos os nomes que

possuam sobrenome 'Oliveira'. Seu programa deve terminar quando a string vazia for lida. Ao

final, escreva a quantidade total de nomes com o sobrenome 'Oliveira'.