Luan_Fox

Notebook Lenovo 100-15ibd :: 80QQ Nao estou conseguindo acessar a bios obs.: ao inciar não aparece nada simplesmente começa iniciar o windows, não tem como ver as teclas para inciar o setup

(você precisa declarar a varialvel aux:=0;) program p6 ; uses crt; procedure auxiliar (var bissexto:boolean; ano:integer); begin if (ano mod 400=0) then bissexto:=true; if (ano mod 4=0) and (ano mod 100 <> 0) then bissexto:=true else bissexto:=false; end; var mes,aux,anoX:integer; biss:boolean; begin writeln('Entre com o ano: '); readln(anoX); auxiliar (biss,anoX); writeln('Entre com o mes: '); readln(mes); if (mes) > 12 then writeln ('Mes invalido'); if (mes) <= 12 then begin if (biss=false) and (mes = 2) then aux:=28; end else aux:=0; begin if (mes = 01) then aux:= 31 else if (mes = 02) then aux:= 29 else if (mes = 03) then aux:= 31 else if (mes = 04) then aux:= 30 else if (mes = 05) then aux:= 31 else if (mes = 06) then aux:= 30 else if (mes = 07) then aux:= 31 else if (mes = 08) then aux:= 31 else if (mes = 09) then aux:= 30 else if (mes = 10) then aux:= 31 else if (mes = 11) then aux:= 30 else if (mes = 12) then aux:= 31; end; writeln('O mes ',mes,' do ano de ',anoX,' possui ',aux,' dias. '); readkey; end.