-->
-->
Ecrire un programme Pascal qui permet de saisir un date
de la forme jj/mm/aaaa puis d’afficher le nombre de jours du mois de cette
date.
program nbr_jrs;
uses wincrt;
var d:string;
m,a,e:integer;
begin
repeat
writeln('saisir un date sous la forme de jj/mm/aaaa');
readln(d);
until (d[3]='/') and (d[6]='/') and (length(d)=10);
val(copy(d,4,2),m,e);
val(copy(d,7,4),a,e);
case m of
2: if (a mod 4=0) then writeln('29 jrs')
else
writeln('28 jrs');
1,3,5,7,8,10,12: writeln('31 jrs');
4,6,9,11: writeln('30 jrs');
else
write('invalide');
end;
end.
