Предмет: Информатика, автор: ShurimanGrei

20 баллов. С циклом while

Составить программу, которая запрашивает пароль (трехзначное число + 2 символа) до тех пор, пока он не будет правильно введен. Верный пароль должен быть задан в виде константы.
И лучше скинуть скрин


FunnyPro: на каком языке програмирования?
FunnyPro: на пайтоне или с++ могу написать
ShurimanGrei: В принципе на любом, главное чтоб был цикл с while

Ответы

Автор ответа: FunnyPro
1

Відповідь:

# на пайтоне

kod = str(input("Введи свой код:"))

v = ''

while(kod != v):

    v = str(input("Код:"))

    if(v != kod):

          print("Неправильно!")

print("Правильно")

Пояснення:

Не до конца зделано.Нету константа,и проверки кода (трехзначное число + 2 символа)

Приложения:

KnowsUser1: использование транслита в качестве имён в программе считается дурным тоном. Если очень надо кириллицу, явно укажите программе кодирование utf-8 и используйте символы кириллицы.
# -*- coding: utf-8 -*-
моя_переменная = input('введите:')
print(моя_переменная)
>>> введите:
FunnyPro: Простите,не понял
KnowsUser1: Имя "kod" в вашей программе написано транслитом от русского "Код". Так делать нехорошо. Это смотрится не красиво. Вы бы могли использовать имя password (pass, pw, psw) или добавить в начало программы строку с указанием кодировки, поддерживающей кириллицу, и использовать нормальное русское "код".
FunnyPro: ох,я понял,простите)
Спасибо что сказали
Автор ответа: KnowsUser1
1

Ответ:

Язык в вопросе не указан. Сделаю на двух, выбирай сам какой пойдёт.

### Пыхтон

PASS = '123bc'

rpass = input('Введите пароль:\n')

while rpass != PASS:

   rpass = input('Неверный пароль. Попробуйте ещё: \n')

else:

   print('Доступ разрешён')

###PascalABC.NET

const PASS = '123bc';

begin

 var rpass := readstring('Enter password: ');

 while (rpass <> PASS) do begin

   rpass := readstring('Access denied. Try again: ');

 end;

 print('Access allowed. Welcome');

end.

Скрины - на чёрном фоне - Пайтон, на белом - Паскаль. Тестировал, работает.

Приложения:
Похожие вопросы