Introdução a ciencias da computação

01.
Program Equacao2grau;
Var a,b,c,d,x1, x2: real;
Begin
writeln(‘Equacao na forma: a*x*x +b*x +c =0’); writeln(‘Digite um valor para a, que seja diferente de zero: ‘) read(a); writeln(‘Digite um valor para b: ‘); read(b); writeln(‘Digite um valor para c: ‘); read(c); d:= b*b-4*a*c if (d>=0) then begin x1:= (-b+sqrt(d))/(2*a); x2:= (-b-sqrt(d))/(2*a); writeln(‘O valor de x1 é: ‘, x1, ‘O valor de x2 é: ‘, x2); end else writeln( ‘A equação não possui raízes reais’); end. 02.
Program Maximo;
Var n, i: integer; x, máximo: real; begin readln(n); máximo:= 0.0; for:= 1 to n do begin readln(x); if x>máximo then máximo:=x end writeln(máximo); end 03.
Program Idadenadador;
Var idade: integer;
Begin
writeln(‘Forneça a idade do atleta: ‘); readln(idade); if (idade = 5) and (idade=8) and (idade=11) and (idade=14) and (idade=18) then writeln(‘Adulto’); readln end. 04.
Program numerosentre100e200impares;
Var i: integer;
Begin
Clrscr; writeln( ‘Os números impares entre 100 e 200 são: ‘); for:= 100 to 200 do begin write(i:8); end; readkey end. 05.

Program parouimpar;
Var n:integer;
Begin
Writeln (‘Escreva um número inteiro: ‘); Read(n); If n mod 2 = 0 then Writeln( ‘O número é par’) Else Writeln(‘ O número é impar’);
End.

06.
Program salario;
Var bruto, liq, perc: real;
Begin
writeln(‘Insira o valor do salário bruto: ‘); read(bruto); writeln(‘Insira um percentual de desconto: ‘); read(perc); liq:= bruto-(bruto*perc/100); writeln(liq); end.

07.
Program Ordemdecresente;
Var a, b, c: integer;
Begin
writeln(‘ Digite um valor para a: ‘); read (a); writeln(‘ Digite um valor para b: ‘); read (b); writeln(‘ Digite um valor para c: ‘); read (c); if