Предмет: Информатика,
автор: 81830306
подскажите пожалуйста пример программы генерирования паролей на Pascal
Ответы
Автор ответа:
0
uses 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.
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.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: murat170610
Предмет: Биология,
автор: banceranastasia40
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Математика,
автор: Ayaulymabitaev1
Предмет: Математика,
автор: antonbandeliko