Chat

 

 

 

6 votes. Moyenne 5.00 sur 5.

Commentaires (2)

1. Karim Mbarek 23/11/2017

Program Lendemain;
Uses wincrt ;
Var j,m,a,ms,js,as:integer;
biss,dj:boolean;
begin
writeln ('donner la date d''aujourd''hui : ');
readln (j,m,a);
if ( a mod 100)=0
then biss:=(a mod 400)=0
else biss:=(a mod 4)=0;
case m of
1,3,7,8,10,12 : dj:=(j=31);
4,6,9,11 : dj:=(j=30);
2 : if biss then dj:=(j=29)
else dj:=(j=28);
end;
if dj then begin
js:=1;
if m=12 then begin
ms:=1;
as:=a+1;
end
else begin
ms:=m+1;
as:=a;
end;
end
else begin
js:=j+1;
ms:=m;
as:=a;
end;
writeln ('le jour suivant est :',js,'/',ms,'/',as);
end.

2. Blaise NGOUAYIMO 07/05/2016

Bonjour je suis vrèment très fier pour toute les aides dont vous nous comblés
J'aimerai avoir un solution a cette exercice car éssayé mlusieur fois jai pas eu
Exercice: ecrire un programme pascal qui demande une date la controle et affiche la date du lendemain

Ajouter un commentaire
 

Créer un site gratuit avec e-monsite - Signaler un contenu illicite sur ce site