ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ С ИСПОЛЬЗОВАНИЕМ ЦИКЛА С ПОСТУСЛОВИЕМ!!!
Составить программу запроса пароля пока не будет введён пароль верно. В программе предусмотреть счётчик неправильных вводов пароля.
Составить программу запроса пароля пока не будет введён пароль верно. В программе предусмотреть счётчик неправильных вводов пароля.
More Questions From This User See All
Answers & Comments
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.
Writeln('Введите пароль');
Readln(s);
if s <> parole then
Count += 1
until (s = parole) or (Count = 3);