petit probleme

voila j ai trouver ce exercise mais j arrive pas a touver les conditions pour fair les test voila le sujet

ecrire un program qui
-lit 1 nbre entier (>o)
-affiche s'il est multiple de 7
-se termine par 7
-contien au moins un 7
ce programme boucle jusqu'a ce que le nbre entré réponde aux 3 conditions simultanément.


voila si kelek'un pourait poster le code de ce programme ca m'aiderais bcp meci d'avance

Bah pour qu'il soit multiple de 7 tu fais pas un truc genre si modulo 7 = 1
puis tu mets le chiffre dans un tableau et tu vérifies si la dernière case = 7 et par la même occasion tu testes tout le tableau pour voir si il y a au moins un 7.

donc j'aurai une constante N=1 pour le tableau c ca?
donc le test de s il y a un 7 ou s il s termine par 7 sera le meme non? SI JME TROMPE PAS

Moi je dis, faut pas trop se casser la tête sur ce genre d'exercice, c'est plus mathématique qu'autre chose...

Mais le truc que je comprend pas c'est que qd tu entre un chiffre il va se mettre dans une case du tableau qd j'y réfléchis alors que si tu veux tester si il y a au moins un 7 bah il faudrait que le chiffre soit répartit en plusieurs cases ^^
Pffff casse tête le jour de noël ^^

personne ne sait commet verifier si le nbre contien un 7 ou se termie par 7?

j'ai fais ca vite fait, je sais pas si il fonctionne correct mais jpense que c'est dans la bonne direction... dis moi quoi !


program sept;

var util : integer;
var condition : boolean;


Begin
condition := false;

while not condition
do
begin
writeln('Veuillez entrer un nombre entier plus grand que 0');
readln(util);
if ((util MOD 7) = 0)
then
while (util DIV 10 )<> 0
do begin if((util MOD 10) =7)
then condition := true;
util := util DIV 10;
end ;


end;
writeln('Votre nomre est correct !');
readln;
end.

j'ai fais ca vite fait, je sais pas si il fonctionne correct mais jpense que c'est dans la bonne direction... dis moi quoi !


program sept;

var util : integer;
var condition : boolean;


Begin
condition := false;

while not condition
do
begin
writeln('Veuillez entrer un nombre entier plus grand que 0');
readln(util);
if ((util MOD 7) = 0)
then
while (util DIV 10 )<> 0
do begin if((util MOD 10) =7)
then condition := true;
util := util DIV 10;
end ;


end;
writeln('Votre nomre est correct !');
readln;
end.

ca marche pas il y a une boucle infini sur veuiller entrer un nbre plus grand ke 0 j entre 7 ca marche pas 0 non plus et meme un nbre negatif et j ai tjrs la meme chose
jvais integrer tes condition dans mon program voir si ca marche mais merci quand meme

J'ai ca normalement ^^ j'espere que ca va t'eclairer il date du debut de l'annee ya surement quelques petites choses a modifier, mais les 3 conditions sont la

Code:

Program exDes7;

VAR n,i,ntemp,compteur : integer;

begin
compteur:=0;
Repeat
    n:=0;
    while (n <= 0) do
    begin
    writeln('Entrez un nombre entier strictementt superieur a 0');
    readln(n);
    end;
    If (n mod 7) = 0 then
        begin
        writeln('Le nombre est multiple de ''7''');
        compteur:=compteur+1;
        end;
    If (n mod 10) = 7 then
        begin
        writeln('Le nombre se termine par ''7''');
        compteur:=compteur+1;
        end;
    ntemp:=n;
    For i:=1 to 5 do
        begin
        if (ntemp div 10) = 7 then writeln('Le nombnre contient un ''7''');
        ntemp := ntemp div 10;
        compteur:=compteur+1;
        end;
    If (compteur <> 3) then
        compteur := 0
        else if (compteur = 3) then
        until (compteur = 3);
        readln;
end.

moi je l'avais fais quand il l'avait donner ...Le lien doit etre un truc du styl :
http://1ti-ephec.user.fr/PPenLP/Les7.pas
et un autre mais je ne sais plus trop la differenc :
http://1ti-ephec.user.fr/PPenLP/Les7boucle.pas

merci pour la reponse chOk