подскажите пожалуйста пример программы генерирования паролей на Pascal
Answers & Comments
DeletedGPuses crt; var s:string; i,k:byte; begin randomize; s:=''; for i:=1 to 10 do begin repeat k:=48+random(75); until k in [48..57,97..122]; s:=s+chr(k); end; write(s); end.
Answers & Comments
var s:string;
i,k:byte;
begin
randomize; s:='';
for i:=1 to 10 do
begin
repeat
k:=48+random(75);
until k in [48..57,97..122];
s:=s+chr(k);
end;
write(s);
end.