Блог для маленьких школьников и их родителей
ШколаЛа

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ С ИСПОЛЬЗОВАНИЕМ ЦИКЛА С ПОСТУСЛОВИЕМ! Составить программу запроса…

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ С ИСПОЛЬЗОВАНИЕМ ЦИКЛА С ПОСТУСЛОВИЕМ!

Составить программу запроса пароля пока не будет введён пароль верно. В программе предусмотреть счётчик неправильных вводов пароля.

Ответов к вопросу: 1
  • люда340
    19.06.2024 | 12:39

    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.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.