afficher le nombre de jours du mois d'une année donnée

Aller en bas

afficher le nombre de jours du mois d'une année donnée

Message  Admin le Lun 7 Mar - 1:05

ÉNONCÉ
Ecrire un algorithme du programme intitulé JOURS, qui pour une année et un mois donné affiche le nombre de jours de ce mois
PASCAL

program jours;
uses wincrt;
var nj,a,m:integer;
begin
writeln('entrer une année : ');
readln(a);
writeln('entrer l"ordre du mois : ');
readln(m);
case m of
1,3,5,7,8,10,12: nj:=31;
4,6,9,11: nj:=30;
2:begin
if a mod 4=0 then nj:=29
else nj:=28
end;
end;
writeln('le mois ',m,' a pour nombre de jours ',nj);
end.

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum