Fibonacci

ÁREA II – CCEN / UFPE
Disciplina: IF 165 – Computação Eletrônica

–

1º Exercício Escolar 2011.1

Nome legível do aluno: ...........................................................................................

Data: 08/07/ 2011

Turma .........

Observações gerais:
1) Preencher os dados do cabeçalho do bloco de provas;
2) Preencher o cabeçalho da folha de questões com o nome e a turma;
3) Não utilizar a folha de questões como rascunho. O rascunho, se necessário, deverá ser feito nas folhas do caderno de prova;
4) Ao final da prova entregar ao professor ou fiscal a folha de questões e o caderno de prova;
5) Cada quesito vale 5 pontos.
1º quesito: Qualquer número natural de quatro algarismos pode ser dividido em duas dezenas formadas pelos seus dois primeiros e dois últimos dígitos. Por exemplo, o número 1297 = 12 e 97 ou 5314
= 53 e 14.
Escreva um programa em Pascal que lê do teclado um número inteiro N (de 4 algarismos) e verifica se a raiz quadrada de N é igual a soma das dezenas de N.
Exemplo
Entrada: N = 9801
Cálculo: Dezenas de N = 98 + 01; soma das dezenas 99; raiz quadrada de n = 99.
Saída: “A raiz quadrada de 9801 é igual à soma de suas dezenas.”
Obs.: Validar o valor de N de forma que o valor esteja no intervalo de 4 dígitos. Caso o valor digitado esteja fora do intervalo, imprimir mensagem de erro: “Valor de N fora do intervalo”.
Program Quesito_1;
Uses crt;
Var
N, d1, d2, S oma : Integer;
Raiz : Real;
Begin
Write('Digite o valor de N: ');
Readln(N);
If (N>999 ) and (N 0) and (d1 < 32) and (m1 > 0) and (m1 < 13) and (a1 > 0) and (a1 < 2012) Then
Begin
Write('Digite a segunda data: ');
Readln(d2,m2,a2);
If (d2 > 0) and (d2 < 32) and (m2 > 0) and (m2 < 13) and (a2 > 1900) and (a2 < 2012) Then
Begin
If (a1 > a2) Then
Write('A maior data é: ', d1,'/',m1,'/',a1)
Else
If (a2 > a1) Then
Write('A maior data é: ',d2,'/',m2,'/',a2)
Else
If (m1 > m2) Then
Write('A maior data é: ', d1,'/',m1,'/',a1)
Else
If (m2