Создает строку из случайных букв. Что то типа «пароля» . var n,i,x: integer; s: string; k: char; a: set of 'a'… 'z'; beginfor i: =1 to 10 dobeginx: =random (2); //выбор, что будет записываться, буква или цифраn: =random (27); //выбор случайной буквы алфавитаif x=0 thencase n of //выбираем букву в зависимости от того, что сгенерировалось в n: =random (27); 1: s: =s+'a'; //записываем букву в строку 2: s: =s+'b'; //записываем букву в строку 3: s: =s+'c'; //записываем букву в строку 4: s: =s+'d'; //записываем букву в строку 5: s: =s+'e'; //записываем букву в строку 6: s: =s+'f'; //записываем букву в строку 7: s: =s+'g'; //записываем букву в строку 8: s: =s+'h'; //записываем букву в строку 9: s: =s+'i'; //записываем букву в строку 10: s: =s+'j'; //записываем букву в строку 11: s: =s+'k'; //записываем букву в строку 12: s: =s+'l'; //записываем букву в строку 13: s: =s+'m'; //записываем букву в строку 14: s: =s+'n'; //записываем букву в строку 15: s: =s+'o'; //записываем букву в строку 16: s: =s+'p'; //записываем букву в строку 17: s: =s+'q'; //записываем букву в строку 18: s: =s+'r'; //записываем букву в строку 19: s: =s+'s'; //записываем букву в строку 20: s: =s+'t'; //записываем букву в строку 21: s: =s+'u'; //записываем букву в строку 22: s: =s+'v'; //записываем букву в строку 23: s: =s+'w'; //записываем букву в строку 24: s: =s+'x'; //записываем букву в строку 25: s: =s+'y'; //записываем букву в строку 26: s: =s+'z'; //записываем букву в строку else s: =s+inttostr (random (11); //если х=1 тогда будет записывать цифра от 0 до 10end; end; writeln (s); // выводим эту строку end.
