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

201

491

Посмотреть ответы 3

Ответы на вопрос:

dfjjrrjsoodkljv

Информатика

4,5(29 оценок)

Вот. мой вариант генератора. 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.

nadia291

Информатика

4,5(89 оценок)

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.

goroskopy

Информатика

4,4(77 оценок)

{pascal, консольный ввод} var velichina_vklada, srok_vklada, godovaya_procentnaya_stavka: integer; vklad_s_procentami: real; vklad_s_procentami_rub, vklad_s_procentami_kop: integer; dohod_rub, dohod_kop: integer; begin write('величина вклада (р.) - '); readln(); write('срок вклада (дней) - '); readln(srok_vklada); write('годовая процентная ставка (%) - '); readln(godovaya_procentnaya_stavka); vklad_s_procentami : = velichina_vklada * ((real(100) + real(godovaya_procentnaya_stavka)*real(srok_vklada)/365)/100); dohod_rub : = (velichina_vklada - integer(vklad_s_procentami)); dohod_kop : = (velichina_vklada*100 - integer(vklad_s_procentami*100)) mod 100; vklad_s_procentami_rub : = integer(vklad_s_procentami); vklad_s_procentami_kop : = integer((vklad_s_procentami*100)) mod 100; writeln('доход: ', dohod_rub,' р. ', dohod_kop, ' 80 коп.'); writeln('сумма по окончании срока вклада: ', vklad_s_procentami_rub, ' р. ', vklad_s_procentami_kop, ' коп.'); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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