La saisie de la longueur de la chaîne peut être aléatoire également.
uses crt;
var i,l:integer;
a:string;
begin
clrscr;
randomize;
write('longueur de la chaine : ');readln(l);
for i:=1 to l do a:=a+chr(random(25)+97);
writeln(a);
readln;
end.
Message édité par casidom le 08-04-2010 à 15:49:54