program temperaturaluisacosta;var C,F,K,R:real; {variaveis para temperaturas} begin{entrada de dados}writeln('forneca a temperatura em farhenheit');readln(F);{ebulicao da agua em kelvin = 373,15 K}writeln('forneca a temperatura em kelvin');readln(K);{fusao do gelo em rankine = 491,7 R}writeln('forneca a temperatura em rankine');readln(R);C:=(5/9)*(F-32);{conversao da temperatura de celsius para farhenheit}{saida de dados}writeln(F,'graus farhenheit,corresponde a');writeln(C,'graus centigrados');C:=(K-273.15);{conversao da temperatura de celsius para kelvin}{saida de dados}writeln(K,'graus kelvin,corresponde a');writeln(C,'graus centigrados');C:=((R/1.8)- 273.15);{conversao da temperatura de celsius para rankine}{saida de dados}writeln(R,'graus rankine,corresponde a');writeln(C,'graus centigrados'); end. program maquinadotempo; Var N,X,i,a:integer; begin writeln('forneca o ano de nascimento da pessoa'); readln(N); writeln('forneca o ano atual'); readln(X); i:=(X-N); writeln('a idade da pessoa e',i); a:=(2048-N); writeln('a idade da pessoa em 2048 e', a); end. program soma32a120; var soma: integer; i: integer; begin soma := 0; i := 35; while i <= 120 do begin if(i mod 7 = 0) then begin soma := soma + i; end; i := i + 1; end; writeln('A soma dos numeros divisiveis por 7 entre 35 e 120 e: ', soma);end. program diaSemana; var dia: integer; mes: integer; ano: integer; function calculaDiaSemana(dia: integer; mes: integer; ano: integer): String; var seculo: integer; semana: integer; MDS: integer; nomeDia: String; begin seculo := ano div 100; if (mes < 3) then begin mes := mes + 12; ano := ano - 1; end; ano := ano mod 100; semana := dia + (((mes+1)*26) div 10) + ano + (ano div 4) + (seculo div 4) + (5*seculo); MDS := semana mod 7; if MDS = 0 then nomeDia := 'Sabado' else if MDS = 1 then nomeDia := 'Domingo' else if MDS = 2 then nomeDia := 'Segunda-Feira' else if MDS = 3 then nomeDia := 'Terca-Feira' else if MDS = 4 then nomeDia := 'Quarta-Feira' else if MDS = 5 then nomeDia := 'Quinta-Feira' else if MDS = 6 then nomeDia := 'Sexta-Feira'; calculaDiaSemana := nomeDia; end; begin writeln('Entre com o dia: '); readln(dia); writeln('Entre com o mes: '); readln(mes); writeln('Entre com o ano: '); readln(ano); if ((dia >= 1) and (dia <= 31) and (mes >= 1) and (mes <= 12) and (ano > 1582)) then writeln('O dia da semana e: ', calculaDiaSemana(dia, mes, ano)) else writeln('Data invalida'); end. program quediaeamanha; var d, m, a, ds, ms, as: integer; function diasnestemes (dias:integer; mes:integer; ano:integer):integer;{retorna o numero de dias de cada mes} begin if (mes=1) or (mes=3) or (mes=5) or (mes=7) or (mes=8) or (mes=10) or (mes=12) then {Meses com 31 dias} dias:=31; if (mes=4) or (mes=6) or (mes=9) or (mes=11) then {Meses com 30 dias} dias:=30; if (mes=2) then {mes com 28 ou 29 dias, dependendo se e ano bissexto ou nao} begin if (ano mod 400=0) then dias:=29; if (ano mod 400<>0) then dias:=28; end; diasnestemes:= dias; end; {fim da funcao que retorna quantos dias tem cada mes}begin writeln('forneca o dia'); readln(d); writeln('forneca o mes'); readln(m); writeln('forneca o ano'); readln(a); writeln('O numero de dias do mes e:', diasnestemes(d,m,a)); if (diasnestemes(d,m,a)=31) then begin if (d=31) then begin ds:=1; ms:=m+1; as:=a; end; if (d<>31) then begin ds:=d+1; ms:=m; as:=a; end; end; if (diasnestemes(d,m,a)=30) then begin if (d=30) then begin ds:=1; ms:=m+1; as:=a; end; if (d<>30) then begin ds:=d+1;