Question

Написать программу на языке Паскаль для решения задачи. С помощью цикла с послеусловием напишите программу, которая требует у вас пароль, например, 111. Если пароль правильный, то заполняет все строки экрана сообщением «Молодец». Если после пятой попытки пароль все равно неверен, выходит из программы. Для проверки подготовить код программы и результаты ее работы.

Answer 1

Код программы:

(пароль: 105)

program raf105;

const pass = 105;

var enterpass, x:integer;

begin

repeat

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

 readln(enterpass);

 if enterpass = pass

   then

     while 1=1 do

       writeln('Молодец')

   else x += 1;

until x=5;

end.

Результаты работы программы:

1.

Вывод: Введите пароль:

Ввод: 105

Вывод: Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец...

2.

Вывод: Введите пароль:

Ввод: 123

Вывод: Введите пароль:

Ввод: 106

Вывод: Введите пароль:

Ввод: 0

Вывод: Введите пароль:

Ввод: 104

Вывод: Введите пароль:

Ввод: 666

Answer 2

Программа на языке Паскаль, которая решает задачу с проверкой пароля: ```pascal program PasswordVerification; uses Crt; var password: Integer; attemptCount: Integer; begin WriteLn('Введите пароль:'); ReadLn(password); attemptCount := 1; repeat if password = 111 then begin ClrScr; for var i := 1 to 25 do WriteLn('Молодец'); break; end else begin WriteLn('Неправильный пароль!'); if attemptCount = 5 then begin WriteLn('Превышено количество попыток!'); break; end; WriteLn('Введите пароль:'); ReadLn(password); WriteLn; attemptCount := attemptCount + 1; end; until false; ReadLn; end. ``` Результаты работы программы: ``` Введите пароль: 123 Неправильный пароль! Введите пароль: 321 Неправильный пароль! Введите пароль: 111 Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец ``` Если пароль введен неверно 5 раз, программа выведет сообщение "Превышено количество попыток!" и завершится.