Liste des Codes
- Afficher sans redondance
- Aire d'un triangle
- Anagrammes
- Calcul de Pi
- Calcul Sinus
- Calculatrice
- Chaîne Dupliqué
- Chaîne aérée
- Chaîne Distincte
- Chaîne Minuscule vers chaîne Majuscule
- Chaines inverses
- Chiffre en Lettre
- Comparaison de deux entiers
- Conversion binaire d'une base binaire a une autre base binaire
- Copier une chaîne
- Cryptage d'une phrase
- Date en lettre
- Divisibilité par 11
- Divisibilité par 13
- Divisibilité par 7
- Eclater un tableau
- Equation de premier degré
- Equation de seconde degré
- Espace superflus
- Exponentiel
- Facteur Premier
- Fréquence d'un caractère
- Grande Somme d'un tableau
- Inéquation de 1er degré
- Insertion a une positon dans un tableaux
- Intersection de deux tableaux
- Inverser un tableau
- Kaprekar
- La plus grande chaîne palindrome
- Le jour d'un date
- Lendemain
- Maximum de trois entiers
- Mention des élevés
- Minimum de deux entiers
- Minimum et Maximum d'un tableau
- Minimum Maximum de deux entiers
- Moyenne de notes
- Moyenne et rang d'une classe
- Nombre cubique
- Nombre de jours par mois
- Nombre parfait
- Nombre Romain vers Nombre Décimal
- Nombre ROND
- Nombres Amis
- Nombres Premiers
- Occurrence d'un caractère
- Occurrence d'un mot
- Palindrome
- Parité
- PGCD Euclide
- PGCD par Différence
- Position d'une chaîne
- PPCM
- PPCM et PGCD
- Puissance X par Y
- Pyramide
- Pythagore
- Racine Carré
- Ranger un tableau
- Recherche d'un élément majoritaire
- Recherche Dichotomique dans un tableaux
- Recherche séquentielle dans un tableaux
- Regrouper un tableau
- Renverser une phrase
- Sablier
- Sans Redondance
- Somme des chiffres d'un entier
- Somme, Produit et Moyenne Arithmétique
- Suite de Fibonacci
- Suite mystere
- Symétrie d'un tableau
- Totalogram
- Touche de clavier
- Transpose d'une matrice
- Triangle de Pascal
dimanche 25 septembre 2016
20:43
-
- Program Lendemain;
- Var j, m, a : Integer;
- Begin
- Writeln('Donner une date sous forme jj mm aa');
- Readln(j, m, a);
- Case m Of
- 1, 3, 5, 7, 8, 10,12 : If j<31 Then j:=j+1
- Else If m = 12 Then Begin j:=1; m:=1; a:=a+1; End
- Else Begin j:=1; m:=m+1; End;
- 4, 6, 9,11: If j<30 Then j:=j+1 Else Begin j:=1; m:=m+1; End;
- 2 : If (((a mod 4)=0) and ((a mod 100)<>0)) or ((a mod 400)=0) Then If j<29 Then j:=j+1 Else Begin j:=1; m:=3; End
- Else If j<28 Then j:=j+1
- Else Begin j:=1; m:=3; End;
- End;
- Writeln('La date du lendemain est : ',j,'/',m,'/',a);
- End.
Inscription à :
Publier les commentaires
(Atom)
0 commentaires:
Enregistrer un commentaire