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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
