Exercice (bac pratique): Recherche de nombres spéciaux

samgena a écrit:salam nabil ! svp la correction ?? O.o

Code:


Program special;

Uses crt;

Var
  a,b: integer;

Procedure saisie(Var a,b : integer);
Begin
  Repeat
    writeln('Saisir a et b :');
    readln(a,b);
  Until ( a >= 5 ) And ( b > a ) And ( 200 >= b );
End;

Function spec(x: integer): boolean;
var
  ch: string;
  i,s,k,e: integer;
Begin
  str(x,ch);
  s := 0;
  For i:=1 To length(ch) Do
    Begin
      val(ch[i],k,e);
      s := s+k;
    End;
  spec := x Mod s = 0;
End;

Procedure trt(a,b : integer);

Var
  i: integer;
Begin
  For i:=a To b Do
    Begin
      If spec(i) Then
        Begin
          writeln(i);
        End;
    End;
End;

Begin
  saisie(a,b);
  trt(a,b);
End.