Напишите програму которая генерируте любое количество паролей любой длины из букв, цифр или и тогоо и другого. надо красиво оформить

Вот. мой вариант генератора. program pr; var text: string; i,length,i2,i3,view,n: integer; begin randomize; write('кол-во паролей: '); readln(n); writeln(); write('длина одного пароля: '); readln(length); writeln(); writeln('вид. 1 - буквы, 2 - цифры, 3 - буквы и цифры'); write('ответ: '); readln(view); writeln(); case view of 1: begin for i: =1 to n do begin for i2: =1 to length do begin text: =text+chr(97+random(26)); end; writeln(text); text: =''; end; end; 2: begin for i: =1 to n do begin for i2: =1 to length do begin text: =text+chr(48+random(10)); end; writeln(text); text: =''; end; end; 3: begin for i: =1 to n do begin for i2: =1 to length do begin i3: =random(2); if i3=0 then text: =text+chr(48+random(10)); if i3=1 then text: =text+chr(97+random(26)); end; writeln(text); text: =''; end; end; else begin writeln('неверный ввод'); end end; end.

Var l: char; i,n,a,k,m,d,q: integer; s: string; label z; begin randomize; writeln ('введите количество паролей'); writeln ('из чего состоят пароли? '); z: writeln ('1 - буквы 2 - цифры 3 - и буквы и цифры'); readln (a); if (a< > 1)and (a< > 2)and (a< > 3)then begin writeln ('неправильный ввод. ввести заново (0 - да / 1 - нет)? '); read (q); if q=0 then goto z else halt; end else begin writeln ('введите количество паролей: '); readln (n); writeln ('введите длину пароля: '); readln (k); writeln ('пароли: '); if a=1 then begin for i: =1 to n do begin for d : = 1 to k do s: =s+chr(random(26)+97); writeln(s); s: =''; end; end; if a=2 then begin for i: =1 to n do begin for d : = 1 to k do s : = s + chr(random(10)+48); writeln(s); s: =''; end; end; if a=3 then begin for i: =1 to n do begin for d : = 1 to k do s : = s + chr(random(26)+97)+chr(random(10)+48); delete(s,k,k); writeln(s); s: =''; end; end; end; end.

Const        x = 28.35; var       g : real; begin       write('введите кол-во граммов: ');       readln(g);       writeln(g: 0: 3, ' грамм =  ', g/x: 0: 3, ' унций.');       readln; end. 2: var        a, b, c : integer;         m : real; begin       write('введите сторону a: ');       readln(a);       write('введите сторону b: ');       readln(b);       write('введите сторону c: ');       readln(c);       m : = sqrt(2*sqr(b) + 2*sqr(c) - sqr(a))/2;       writeln('медиана к стороне a = ', m: 0: 3);       m : = sqrt(2*sqr(a) + 2*sqr(c) - sqr(b))/2;       writeln('медиана к стороне b = ', m: 0: 3);       m : = sqrt(2*sqr(a) + 2*sqr(b) - sqr(c))/2;       writeln('медиана к стороне с = ', m: 0: 3);       readln; end.

Переведем длину диагонали в мм. 1"=25.4 мм, тогда длина диагонали d составит 25.4×17 = 431.8 мм. теперь нужно решить вопрос о соотношении сторон экрана, т.е. отношения ширины экрана к высоте. на старых мониторах использовалось соотношение 4: 3, на современных - 16: 9 и 16: 10. тут не угадаешь. примем соотношение 16: 9. пусть высота экрана монитора равна h, тогда его ширина b=(16/9)*h. по теореме пифагора d² = b²+h². для выбранного нами случая d² = (16/9)²*h²+h² = h²((16/9)²+1). решаем полученное уравнение. если точка имеет размер 0.28мм, то по высоте экрана 211.7 мм таких точек поместится 211.7/0.28 ≈ 756. а по ширине - 756×16/9 ≈ 1344. получаем разрешение 1344×756. увы, оно нестандартное, т.е. таких мониторов не выпускают. смотрим промышленный ряд разрешений и выбираем ближайшее 1366x768. оно немного больше полученного нами, но это скорее всего вызвано тем, что на самом деле размер точки не 0.28, а 0.2755 мм. ответ: расчетное 1344×756, стандартное 1366×768