procedure trishell (var t:tab; n:integer ) ;
var p,i,j,v: integer;
begin
p:=0;
while p<= n do
p:= 3*p+1;
while p <> 0 do
begin
p:=p div 3;
...
Type: Messages; Utilisateur: ningistine
procedure trishell (var t:tab; n:integer ) ;
var p,i,j,v: integer;
begin
p:=0;
while p<= n do
p:= 3*p+1;
while p <> 0 do
begin
p:=p div 3;
...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.