Александрин
4 год назад
подскажите пожалуйста пример программы генерирования паролейна Pascal
ОТВЕТЫ
Яни
Oct 24, 2020
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.
396
Смежные вопросы: