Question

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ С ИСПОЛЬЗОВАНИЕМ ЦИКЛА С ПОСТУСЛОВИЕМ!!!
Составить программу запроса пароля пока не будет введён пароль верно. В программе предусмотреть счётчик неправильных вводов пароля.

Answer 1

var

 parole, s: string;

 Count: byte;

begin

 parole := 'Земля прощай. В добрый путь!';

 Count := 0;

 

 repeat

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

   Readln(s);

   Count += 1

 until (s = parole) or (Count = 3);

 

 if Count = 3 then

 begin

   Write('Вы не прошли индентификацию. Доступ закрыт');

   Halt

 end

 else

   Write('Доступ разрешен.')

end.

Answer 2

Цикл неправильно работает, нужно так:

Answer 3

repeat
Writeln('Введите пароль');
Readln(s);
if s <> parole then
Count += 1
until (s = parole) or (Count = 3);