Info
ex2 program Date; uses wincrt; var a,m,j:integer; begin write('entrer l''année ');readln(a); write('entrer le mois ');readln(m); write('entrer le jour ');readln(j); case m of
2 : if (a mod 4=0) then if (j in [1..29]) then write(j,'/',m,'/',a) else write('entrée non valide') else if(j in [1..28]) then write(j,'/',m,'/',a) else write ('entrée non valide');
1,3,5,7,8,10,12: if (j in [1..31]) then write(j,'/',m,'/',a) else write('entrée non valide');
4,6,9,11 : if j in [1..30] then write(j,'/',m,'/',a) else write('entrée non valide') ; end; end.
--------------------------------------------------------
ex3 program Operation; uses wincrt; var a,b:real; c:char; e:integer; x:integer; begin write ('entrer 2 réels ');read(a);readln(b); writeln('entrer un caractère ');readln(c); case c of
'A'..'Z': write (chr(ord(c)+32));
'a'..'z':if a=ord(c) then write('le code ASCII de ',c,' est égal à : ',a) else if b=ord(c) then write('le code ASCII de ',c,' est égal à b : ',b) else write('le code ASCII de',c,'n''est pas égal à a(',a,') ou b(',b,')');
'0'..'9': begin val(c,x,e); if (x mod 2=0) then write(x,' est pair') else write