Question

Подпишусь, отблагодарю и выберу ответ лучшим.
Только правильно. С циклом while

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

Answer 1

Ответ:

program EnterPassword;

const wassword='123pw'; // Верный пароль, заданный константой

var

   userPass: string; // Переменная, в которую будет считываться пароль, введенный пользователем

   

begin

   while wassword <> userPass do begin // пока пароль, введенный пользователем, не совпадает с правильным

       write('Введите пароль: ');

       readln(userPass); // считываем с клавиатуры пароль от пользователя

       if wassword <> userPass then // пароль верный

           writeln('Пароль неверный')

           else

               writeln('Пароль верный');

   end;

 

readln

end.

Объяснение: