Program divisibilite_7;
var n,nb:integer;
(*************************************)
Function div_7 (n : integer ) : boolean ;
Begin
While (n>99) do n := (n div 10) - 2 * (n mod 10);
div_7:=(n mod 7 = 0);
End;
(****************** P.P ****************)
Begin
Writeln('les nombres divisibles par 7 :');
nb:=0;
n:=0;
Repeat
If div_7(n) Then
Begin
writeln(n:5);
nb:=nb+1;
End;
n:=n+1;
Until nb=100;
writeln;
End.
UHJvZ3JhbSBkaXZpc2liaWxpdGVfNzsKdmFyIG4sbmI6aW50ZWdlcjsKKCoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKiopCkZ1bmN0aW9uIGRpdl83IChuIDogaW50ZWdlciApIDogYm9vbGVhbiA7CkJlZ2luCldoaWxlIChuPjk5KSBkbyBuIDo9IChuIGRpdiAxMCkgLSAyICogKG4gbW9kIDEwKTsKZGl2Xzc6PShuIG1vZCA3ID0gMCk7CkVuZDsKKCoqKioqKioqKioqKioqKioqKiBQLlAgKioqKioqKioqKioqKioqKikKQmVnaW4KV3JpdGVsbignbGVzIG5vbWJyZXMgZGl2aXNpYmxlcyBwYXIgNyA6Jyk7Cm5iOj0wOwpuOj0wOwpSZXBlYXQKSWYgZGl2XzcobikgVGhlbgpCZWdpbiAKd3JpdGVsbihuOjUpOwpuYjo9bmIrMTsKRW5kOwpuOj1uKzE7ClVudGlsIG5iPTEwMDsKd3JpdGVsbjsKRW5kLg==