TRABALHO DE FUNDAMENTOS

Exercício 3
Program Ex3 ; var idade:integer; Begin Writeln ('Informe a idade da pessoa: '); Readln (idade); If (idade>=0) and (idade<=3) then Write ('Esta pessoa é um bebê.'); If (idade>=4) and (idade<=10) then Write ('Esta pessoa é uma criança.'); If (idade>=11) and (idade<=18) then Write ('Esta pessoa é um adolescente.'); If (idade>18) then Write ('Esta pessoa é um adulto.'); End.
Exercício 4
Program Ex4 ; var x,y,z:integer; Begin Write ('Informe o valor do lado x: '); Read (x); Write ('Informe o valor do lado y: '); Read (y); Write ('Informe o valor do lado z: '); Read (z); If (x=y) and (x=z) then Write ('Triâgulo equilátero'); If (x=y) and (x<>z) then Write ('Triângulo isósceles'); If (x=z) and (x<>y) then Write ('Triângulo isósceles'); If (y=z) and (y<>x) then Write ('Triângulo isósceles'); If (x<>y) and (x<>Z) then Write ('Triângulo escaleno'); End.
Exercício 5
Program Ex5 ; var a,b,c,delta:integer; Begin delta:=0; Write ('Informe o valor de a: '); Read (a); Write ('Informe o valor de b: '); Read (b); Write ('Informe o valor de c: '); Read (c); Write ('Utilizando a equação ax2+bx+c: '); delta:=(b*b)+(4*a*c); If (delta>0) then Write ('O valor de delta é: ',delta,'. Existe 2 raízes reais.'); If (delta=0) then Write ('O valor de delta é: ',delta,' . Existe 1 raíz real.'); If (delta<0) then Write ('O valor de delta é: ',delta,'. Não existe raíz real.'); End.

Exercício 6 Program Ex6 ; Var n1,n2,n3,soma,mult:real; Begin soma:=0;mult:=0; Write ('Insira o valor 1: '); Read (n1); Write ('Insira o valor 2: '); Read (n2); Write ('Insira o valor 3: '); Read (n3); If (n1 mod 2=0) and (n2 mod 2 <>0) then soma:=(n1+n3); If (n1 mod 2<>0) and (n2 mod 2=0) then mult:=n1*n3 Else Write (n3); End.
Exercício 7
Program Ex7 ;