Chat

 

 

 

5 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

Vous utilisez un logiciel de type AdBlock, qui bloque le service de captchas publicitaires utilisé sur ce site. Pour pouvoir envoyer votre message, désactivez Adblock.

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

×