program exercicio1; var a,b,dif:real; begin write('forneca o primeiro numero: '); readln(a); write('forneca o segundo numero: '); readln(b); if a>b then dif:=a-b else dif:=b-a; writeln('a diferenca eh: ',dif:1:5); readln; end.

2. Faça um programa que leia um número inteiro e mostre uma mensagem indicando se este

número é par ou ímpar e se é positivo ou negativo.

program exercicio2; var a:integer; begin write('forneca o numero: '); readln(a); if a= then writeln('o numero eh zero') else begin if a mod 2 = 0 then writeln('o numero eh par') else writeln('o numero eh impar'); if a> then writeln('o numero eh positivo') else writeln('o numero eh negativo'); end; readln; end.

3. Escrever um programa para ler dois números. Se os números forem iguais mostrar a

mensagem: “Números iguais” e encerrar a execução; caso contrário, mostrar o de maior

valor, acompanhando pela mensagem “é o maior número”.

program exercicio3; var n1,n2:real; begin write('forneca o primeiro numero: '); readln(n1); write('forneca o segundo numero: '); readln(n2); if n1=n then writeln('numeros iguais') else if n1>n then writeln(n1:1:5, ' eh o maior') else writeln(n2:1:5, ' eh o maior'); readln; end.

4. Escrever um programa para ler e imprimir três números. Se o primeiro for positivo,

imprimir sua raiz quadrada, caso contrário, imprimir o seu quadrado; se o segundo número

for maior que 10 e menor que 100, imprimir a mensagem: “Número está entre 10 e 100 –

intervalo permitido”; se o terceiro número for menor que o segundo, calcular e imprimir a

diferença entre eles, caso contrário, imprimir o terceiro número adicionado de 1.

program exercicio4; var n1,n2,n3,aux:real; begin write('forneca o primeiro numero: '); readln(n1); write('forneca o segundo numero: '); readln(n2); write('forneca o terceiro numero: '); readln(n3); writeln('numero lidos: ',n1:1:5,' ',n2:1:5,' ',n3:1:5); if n1> then begin aux:=sqrt(n1); writeln('raiz quadrada do primeiro: ',aux:1:5) end else begin aux:=n1*n1; writeln('quadrado do primeiro: ',aux:1:5); end; if (n2>10) and (n2<100) then writeln('segundo numero esta entre 10 e 100 - intervalo permitido'); if n3<n then begin aux:=n2-n3; writeln('diferenca: ',aux:1:5); end else begin aux:=n3+1; writeln( 'terceiro mais um: ',aux:1:5); end; readln; end.

5. Elabore um programa que, dada a idade de um nadador, classifique-o em uma das seguintes

categorias:

 Infantil A: 5 a 7 anos;

 Infantil B: 8 a 10 anos;

 Juvenil A: 11 a 13 anos;

 Juvenil B: 14 a 17 anos;

 Sênior: maiores de 18 anos.

program exercicio5; var idade:integer; begin write('forneca a idade do atleta: '); readln(idade); if idade< then writeln('jovem demais para competir'); if (idade>=5) and (idade<=7) then writeln('infantil A'); if (idade>=8) and (idade<=10) then writeln('infantil B');

program exercicio8; var a1,a2,a3,a4,s1,s2,s3,cont:integer; begin writeln('Informe os 4 numeros apostados'); readln(a1,a2,a3,a4); writeln('Informe os 3 numeros sorteados'); readln(s1,s2,s3); cont:=0; if (s1=a1) or (s1=a2) or(s1=a3) or(s1=a4) then cont:=cont+1; if (s2=a1) or (s2=a2) or(s2=a3) or(s2=a4) then cont:=cont+1; if (s3=a1) or (s3=a2) or(s3=a3) or(s3=a4) then cont:=cont+1; writeln('O apostador teve ',cont, ' acertos'); readln; end.

9. Faça um programa que efetue a leitura de três valores correspondentes ao tamanho dos

lados de um triângulo. O programa deverá verificar se os lados fornecidos formam

realmente um triângulo. Se esta condição for verdadeira, deverá ser indicado qual tipo de

triângulo foi formado: isósceles (dois lados iguais e um diferente), escaleno (todos os lados

diferentes) ou eqüilátero (os 3 lados iguais)

program exercicio9; var A,B,C:real; begin writeln('informe os 3 lados do triangulo:'); readln(A,B,C); if (A>=B+C) or (B>=A+C) or (C>=A+B) then writeln('nao forma um triangulo') else if (A=B) and (A=C) then writeln('triangulo equilatero') else if (A=B) or (A=C) or (B=C) then writeln('triangulo isosceles') else writeln('triangulo escaleno'); readln; end.